:~$ perl
$\="\n";   
print __LINE__;
# line 120
print __LINE__;
__END__
2
120