#!/usr/bin/perl -w

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

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