use Win32::OLE;
$hl = new Win32::OLE('TestDot.myClass') or die $!;
my @ptrObject = (5, 10, 10);
my $ret = $hl->Test(@prtObject);
print(Win32::OLE->LastError()."\n");

##</code><code>##

namespace TestDot
{
    public unsafe class myClass
    {
        public int Test(int *ptr)
        {
            return ptr[1];
        }
    }
}