Select Code to Download

#!/usr/bin/perl -w 
######################################################################
+##
...
while (<FH>) {
  printf "%d:%s",$line++,<FH>;
}

--$  ./filetest.pl
Content-type: text/plain
...

1:####################################################################
+####
--$

#!/usr/bin/perl -w 
######################################################################
+##
...
while (<FH>) {
  printf "%d:%s",$line++,$_; #  $_ vs. <FH>
}

--$  ./filetest.pl
Content-type: text/plain
...
13:  printf "%d:%s",$line++,$_;
14:}
--$