Select Code to Download

#!perl -l
use strict;
...
    do_another;
  }
}

sub retry(&$) {
...
        die "failure";
      } 10;