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