sub getcwdrv {
   return getcwd() =~ /^([a-zA-Z]:)/ && uc($1);
}