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