Select Code to Download

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");

namespace TestDot
{
...
        }
    }
}