open my $fh, '<', 'an_unlikely_file' 
    or print "Not opened\n";
if ($fh) {
    print "But $fh evaluates to true\n"
    }