sub New {
return new packagename;
}

##</code><code>##

Set obj = CreateObject("My.ZipObject")
Set objr = obj.New

Set rc = objr.zipAFile("type.txt","Type.zip")


##</code><code>##

my $r = Win32::OLE->new('My.ZipObject');
print "\nZip DLL error code " . Win32::OLE->LastError();

my $oo = $r->new;
my $exitcode = $oo->zipAFile("type.txt","Type.zip");