use IPC::Open3;
my ($pid,$zipin, $zipout, $ziperr);	
$pid = open3 ($zipin, $zipout, $ziperr, system("cmd /c zip.exe -FF \"$mainfilepath\" --out \"$ziprepairedwordfilepath\""));
wait;
$zipin = print "y\r\n";