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;