if (open(FH,"<".$log) { print "opened\n"; } else { print "unable to open $!\n"; }