Select Code to Download

sub main {
    findit();
...
sub dostuff {
    print "$_\n"
}

sub main {
   my @dirlist;
...
sub dostuff {
   print "$_\n";
}