open(INFH, "<$file")

##</code><code>##


eval {
open(INFH, "<$file") or die "can't find input file";
};
print "Error $@", "failed" if ($@);