local $SIG{__DIE__} = \&foo;
                                                                                
                                                                                
eval
{
die "Aiieeee!";
};
                                                                                
sub foo
{
   print "COpped die";
   
}