#!c:\perl\bin\perl.exe -w

use strict;
use warnings;

opendir(DIR, "c:\\") || die "can't opendir c:\\ ( $! ) \n";
my @rootlist = grep {/.*?/ && -d "c:\\$_" } readdir(DIR);
closedir DIR;

exit;