sub dies
{
    die "That's it!";
}

if (eval { dies(); 1 })
{
    print "No death!\n";
}
else
{
    print "Death caught: $@\n";
}