$wmi = Win32::OLE->GetObject($class) ||
   die "Cannot connect to machine: $class - " . Win32::OLE->LastError();