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