my @drives=Win32::AdminMisc::GetDrives(DRIVE_FIXED); #### foreach my $drive ( Win32::DriveInfo::DrivesInUse ) { next unless Win32::DriveInfo::DriveType($drive) == FIXED_DISK; my $serial = (Win32::DriveInfo::VolumeInfo($drive))[1]; next if $seen{$serial}++; } #### if($total && $free){