my $hasdriveinfo = eval { require Win32::DriveInfo; 1 };