Select Code to Download

sub AUTOLOAD {
    my $tree = shift;
...
    print OUT "@@@ $AUTOLOAD(\$tree) @@@\n";
    recurse($tree);
}

sub coderef {
    if (exists($main::{$_[0]})) {
...
        }
    }
}