use warnings;
use strict;
use Win32::OLE 'in';

my $fs = Win32::OLE->CreateObject('Scripting.FileSystemObject');
for ( in $fs->Drives ) { 
    print "$_->{DriveLetter}:\n";
    my $d = $fs->GetDrive( $_->DriveLetter );
    for (
        qw(DriveLetter DriveType IsReady FileSystem TotalSize FreeSpace AvailableSpace)
      )
    {
        print "$_: $d->{$_}\n";
    }
}