use strict;
use Win32::OLE qw (in);

my @servers=('servera','serverb','serverc');

foreach(@servers) {

  my $server=$_;
  $server=~s/^\s+|\s+$//g;
  my $namespace="\\root\\cimv2";

  my $object=Win32::OLE->GetObject( "winmgmts:{impersonationLevel=impersonate,(security)}//".$server.$namespace );} or die "could not get object";

  # NOW GET DRIVE INFO THROUGH WMI
}