Select Code to Download

sub test_a {
    use warnings;
...
    my $arg = shift();
    ref $arg ? test_a($$arg[0]) : $arg;
}

my $sub = sub { ...; $sub->(); .. };

sub test_a;
sub test_a { ...; recurse into test_a here };