my $zipExec='C:/zip.exe';
 my @cmd = ($zipExec, "-rq", $destinationPath, ".");

    print "Executing command @cmd\n";
    $syscode = system(@cmd);
    my $error = $!;

   print "Return code = $syscode \n";
   print "Error  = $error\n";