Help for this page

Select Code to Download

Select or download this

1. my $zippath = qq(\"C:\\Program Files\\WinZip\\wzzip.exe\" \-a \"$zi
+p_file\" \"$filetoZip\");   
my $status = system ($zippath);

Select or download this

2. my $winzip= qq(\"c:\\program files\\winzip\\wzzip.exe");
open OUT, "| $winzip $zip_options $zip_file $filetoZip" or
  die "wzzip pipe: $!";
print OUT "\n";
close OUT;