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