Select Code to Download

use File::Find;
find(\&wanted, shift(@ARGV));
...
    push(@dirlist,$File::Find::name);
    return(@dirlist);
}

use strict;
use File::Find;
...
sub dostuff {
    print "$_\n"
}