#!/h/COE/Comp/Perl/bin/perl

use lib `c:/h\COTS\Perl\lib`;
use File::Find;

find(\&wanted,'/h', '/h/COE' );

sub wanted{
     #-d $_ && print "$File::Find::name\n";
}