while(my $name = readdir(ODIR)) 
{ 
    
    if(-d "C:/$name") 
    { 
        print "## inside if \n";

    }
}