use strict;
use Win32API::File qw(getLogicalDrives GetVolumeInformation );

my @drives = getLogicalDrives();
for my $d (@drives) {
    my @x = (undef)x7;
    GetVolumeInformation( $d, @x );
    print "$d $x[0] ($x[5])\n";
}
[download]