use Win32::Process;
Win32::Process::Create( $proc, c:\zip.exe, "zip.exe test.zip *.*", 1, DETACHED_PROCESS, '.' );
$proc->Wait(INFINITE);