sub wanted { 
     my $dir = shift;
     print "[$dir] $File::Find::dir $File::Find::name\n"; }