use Win32::OLE qw (in);
my $Computer=".";
my $WMIServices= Win32::OLE->GetObject("winmgmts:\\\\" . $Computer . "\\root\\cimv2");
my $test=SubclassesOf $WMIServices;
use Data::Dumper; 
print Dumper($test);