use strict;
use Fatal 'chop';  # My name's Bond, James Bond.

chop 'Ow!';
__END__
Cannot make a non-overridable builtin fatal at /opt/perl-5.8.4/lib/5.8.4/Fatal.pm line 108.
BEGIN failed--compilation aborted at testfatal.pl line 2.

##</code><code>##

use strict;
use subs 'chop';
sub chop {
  print "hello from chop\n";
}

chop 'Ow!';
__END__
hello from chop

##</code><code>##

        $proto = eval { prototype "CORE::$name" };
        # ...
        die "Cannot make a non-overridable builtin fatal"
          if not defined $proto;