Help for this page
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"; }