use IO::Dir;
$root = "D:\";
$dir = new IO::Dir $root or die "Can not list directory";
while( $_ = $dir->read )
{
   print "Directory: $root\\$_\n" if (-d "$root\\$_");
}