#!/usr/bin/perl -w
use strict;

use Win32API::File qw(
    getLogicalDrives GetVolumeInformation );

for my $root (  @ARGV ? @ARGV : getLogicalDrives()  ) {
    my( $vol, $ser, $maxlen, $bits, $fs );
    $root .= ":"   if  length($root) < 2;
    $root .= "/"   if  length($root) < 3;
    if(  ! GetVolumeInformation( $root, $vol, [],
        $ser, $maxlen, $bits, $fs, [] )  ) {
        warn "Can't get information about $root: $^E\n";
    } else {
        print "$root is $fs named ($vol)\n";
    }
}