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