I'm trying with the following code

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

my $GlobalMacro;

for ( 1 .. 2 ) {
    $GlobalMacro = Win32::OLE->new('imacros') or die "Win32:OLE proble
+m\n";
    $GlobalMacro->{Visible} = 1;
    $GlobalMacro->iimInit();
}

Win32::OLE->EnumAllObjects($GlobalMacro);

my $Count = Win32::OLE->EnumAllObjects(
    sub {
        my $Object = shift;;
        my $Class = Win32::OLE->QueryObjectType($Object);
        printf "# Object=%s Class=%s\n", $Object, $Class;
    }
);
[download]