perl -e '
my $x; sub rec { goto STOP if ++$x>10; print $x; rec()};rec();STOP:' 
12345678910