Try using Data::Dumper on the objects you get to see what's inside of them.

use Data::Dumper;
foreach my $objItem (in $colItems) {

  print Dumper($objItem);
  #next unless ($objItem->{FreeSpace});
     #  print "$objItem\n";
      print "Free Space on $computer: $objItem->{FreeSpace}\n";
 
   }
[download]