Select Code to Download

sub foo {
  my $x=shift;
  #code....
  foo($x+1);
}

sub foo {
  my $x=shift;
...
  $x++;
  goto START_OF_FOO;
}