open my $fh, "<", $infile or die "error opening '$infile':$?";