#!/usr/bin/perl -w
# Using WinZip to zip files up on Windows machine.
use strict;
use Win32;
use Win32::Process;

my $cmd 		= "C:\\Program Files\\WinZip\\winzip32.exe";
my $rootdir  	= "c:\\Documents and Settings\\bch\\My Documents";
my $filename 	= '"c:\\Documents and Settings\\bch\\My Documents\\testarchive.zip"';

my @files 	= ('got milk.jpg','kellogs.jpg','gravity.jpg','Resume.doc');

for my $x (0..(@files-1)) {
	$files[$x] = qq["$rootdir\\$files[$x]"];		
}	

sub print_error() {
	return Win32::FormatMessage( Win32::GetLastError() );
}	

Win32::Process::Create(my $processobj,
	"$cmd",
	"winzip32 -min -a $filename @files",
	0,
	DETACHED_PROCESS,
	".") or print_error();