open(F, "<$somefile") or do { print "Could not open file\n"; exit 3; };