eval {
 might_explode();
 1
} or die "omgish: $@\n";
__END__
omgish: Undefined subroutine &main::might_explode called at - line 2.