#!/h/COE/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";
}