my $zip = $r->NewZip("Type.zip");
 $zip->AppendOneFileOrDir("type.txt");
 $zip->CloseZip();