if ($^O =~ "Win") {
   use Win32::DriveInfo ;
   }