sub test
{
    use File::Find;

    &find(\&wanted, 'E:/Common/Intranet/');

}

sub wanted
{
    if($File::Find::name !~ m/\./)
    {
        $dirlist[$count] = $File::Find::name;
    }
    $count++;
}