#! perl
use strict;
use warnings;
use Data::Dump;
use Win32API::File qw(getLogicalDrives GetVolumeInformation);

my @drives = getLogicalDrives();

for my $d (@drives)
{
#   my @x = (undef) x 7;
    my @x;
    $#x = 6;
#   dd \@x;
    GetVolumeInformation($d, @x);
    print "$d $x[0] ($x[5])\n";
}