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

##</code><code>##

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