$SIG{__DIE__} = sub { print "die handler: " , @_ };
                                                                                
eval
{
   die "DIE NOW";
};
                                                                                
print "Still alive";