Help for this page

Select Code to Download

Select or download this

while ( <> )
{
    print "Reading line $. in file $ARGV.\n";
    $. = 0 if eof;
}