Select Code to Download

for my $child ( $sub->children ) {
 $child->start->add_content($caller)
 if ref $child eq "PPI::Structure::Block";
}

my @all_subs = qw (sub1 sub2);
for my $sub (@all_subs) {
...
 print "Calling '$sub' in file: $0\n";
 };
}