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