Help for this page
open(F, "<$somefile") || { print "Could not open file\n"; exit 3; }
if (! open(F, "<$somefile")) { print "Could not open file\n"; exit 3; }