Select Code to Download

$SIG{__DIE__} = sub { our @reason = @_ };

...
        print "We caught a call to die: @reason\n";
    }
}