for my $func qw(CORE::open open) {
    my $p = prototype $func;
    print "$func: ", defined $p ? $p : "(not overrideable)", "\n";
}

##</code><code>##

CORE::open: *;$@
open: (not overrideable)