eval { die "Uh oh, bad stuff happened." };
die $@ if $@;
print "Phew.  Bad stuff didn't happen.\n";