Select Code to Download

use Win32::API;
my $GetLogicalDriveStrings = new Win32::API(kernel32 => GetLogicalDriv
+eStrings => ['N', 'P'], 'N');
...
if($GetLogicalDriveStrings->Call(length $drives, $drives)) {
    @drives = split /\0+/, $drives;
}

use File::Find;
my %results;
...

use Data::Dumper;
print Dumper \%results;