sub DriveList {
  my (@Drives,$Char);
  $Char = "b";
  until ($Char eq "z") {
    ++$Char;
    if ((-d "$Char:\\") && (-w "$Char:\\")) {
      push(@Drives,sprintf("%s:",$Char)); } }
  @Drives;
}