Select Code to Download

sub try_again {
  my $msg = shift;
...
}

go();

# no return in the outer sub
sub go { do_it or try_again; ... }