文件行号，代码所在行号

$. this is the line number of the read-in file.
__LINE__ the line number of the 'print __LINE__' in the script.

while(<>){
    print;
    print $.;
    print __LINE__;
}