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

##</code><code>##

if ($^O eq 'MSWin32' and not $hasdriveinfo)
{
  die "failed to load Win32::DriveInfo - is it installed? $@";
}