my $counter;

sub rec {
  goto OUT if $counter++ >= 10;
  print $counter;
  rec();
  # never reached
}

rec();
OUT: