sub get_drives {
  @dir = ();
  $dir = "c";
  while ($dir !~ /AA/i) {
    if (opendir (DIR, "$dir:")) {
      push (@sorted, "$dir:");
      push (@drives, "$dir:");
      closedir (DIR);
    }
    $dir++;
    $dir_cnt++;
  }
  if ($dir_cnt < 5) {
    $dir_cnt = 5;
  }
}