#!perl
use 5.020;

$SIG{__DIE__}= sub { next };
for (1..2) {
    say $_;
    die;
}
say "done";

__END__
Can't "next" outside a loop block at tmp.pl line 3.