my $foo = 1;
BLOCK: { last if $foo > 10; eval { print $foo++, "\n"; }; redo; }

##</code><code>##

my $foo = 1;
eval { last if $foo > 10; print $foo++, "\n"; redo; }