use strict;
use Win32::OLE;
use warnings;
 
my $wmi = Win32::OLE->GetObject('winmgmts:!\\\\localhost\root\default');

print "Got a wmi object" if defined $wmi;