my $res = eval { might_explode(); 1 };
die "omgish: $@\n" unless $res;  # Also, why invoke print and exit when this will do?