Select Code to Download

use warnings;
use subs 'die'; 
...

#calls our overriden die
die "hello";

Mon May 28 10:41:21 2001: hello world
goodbye
goodbye cruel world

#mydie.pm
#a package to export a global die, overriding the perl builtin
...
    print "goodbye cruel world\n";
    CORE::die $_[0];
}

#!/usr/local/bin/perl
use warnings;
...
print "hello world\n";
#calls the die exported by mydie.pm
die "argh!!!";

hello world
goodbye cruel world
argh!!! at mydie.pm line 20.