##
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){