#Read a file, print its line to the screen.

 

$TheFile = "g:\\data\\english\\TomSawyer.txt";
open (INFILE, $TheFile) or die "The file $TheFile could not be found";

while (<INFILE>)        
{
   print  $_;                    
}
 

close INFILE;