Perl> sub thatDies{ die "Kamakazi\n"; };;
Perl> print "Test failed with $@\n" unless eval{ thatDies() };;

Test failed with Kamakazi