OOPS My Bad- the above post shoulda been:
#!perl 
$myfile="c:/myfile.txt"; 
open MYFILE, $myfile or die "Cannot open $myfile for read :$!"; 

while (<MYFILE>)
{
  print "N1 $. $_"; 
}
[download]