Select Code to Download

# odd way to count lines of a file :-)
use strict;
...
print "line: " . $fh->input_line_number();

__END__