my $r = Win32::OLE->new('Chilkat.ZipObject');
loads and returns good status.
my $exitcode = $r->ZipAFile("type.txt","Type.zip");

##</code><code>##

Set obj = CreateObject("Chilkat.ZipObject")
loads and returns good status.
Set rc = obj.ZipAFile("type.txt","Type.zip")