use strict;
use Win32::OLE;
use warnings;

Win32::OLE->Option(Warn => 2);

my $cluster = Win32::OLE->new('MsCluster.Cluster');
print Dumper($cluster);
$cluster->Open('') or die $^E;