$obj = Win32::OLE->CreateObject('HS.Application');
    $self = bless {};
    $cb = $obj->RegisterEventCB(3,$self);
    print Dumper(\$cb);

    sub HSEvent{
        print Dumper(\@_);
        }