my $sub = eval q(sub { die });
for (1..10) {
    eval { $sub->() };
    print "$@\n";
}