open INFILE,"<","testfile.txt" or die "Could not open file:$!";
$fh = \*INFILE;