$SIG{__DIE__} = sub { print "Caught by die handler: $_[0]"; exit };

eval
{
    die "Oops\n";
};

print "Eval returned error: $@" if $@;