Select Code to Download

find(\&wanted, "/usr/home/amarquis");

...
        $File::Find::prune = 1;
    }
}

sub wanted {
    # Prune this directory so we don't recurse farther,
...
    print $File::Find::name . "\n";

}