use overload q!""!=>sub{ eval { "whoops" } };
eval { die bless {} };
my $exception = $@;
die $exception if $exception;