my $class = "Win32_LogicalDisk";
my $Info = $SWbemServices->InstancesOf( $class )
    || die "Could not access instances of $class on $hostname";
for my $Item (in ($Info) ) {
  if ( $Item->{DriveType} == 3 ) {
    my $size = int( $Item->{Size} / (1024 * 1024 * 1024) );
    my $free = int( $Item->{FreeSpace} / (1024 * 1024 * 1024) );
    print $Item->{Name} . " $size GB\n";
  }
}