$SIG{__DIE__} = sub { print "\$@='$@'\n"; $@='' };

eval {die "string" };
print "\$@='$@'\n";

eval {die { } };
print "\$@='$@'\n";