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