my @drives;
for my $drive ('A' .. 'Z') {
 opendir DRIVE, "$drive:/" and push @drives, $drive;
}
print "Drives: ", (join ', ', @drives), "\n";