unless (open my $fh, '<', 'file') { 
    # . . .
}

##</code><code>##

open my $fh, '<', 'file' or do { 
    # . . . 
};