unless(open( FH, "<$file") ) {
    # Error code, logging, bits, bobs (etc etc)
    die "Cannot open $file :$!\n";
}