1 #!/usr/bin/perl
2 
3 seek DATA,0,0;
4 print "$. $_" while <DATA>;
5 __DATA__
6 
7 line 1
8 line 2
9 line 3