I used the below script to zip a file and it worked fine.


use Archive::Zip;
opendir(PREV,"C:/Documents and Settings/Sam_Gov/Desktop/test_file/");
while ($file = readdir(PREV)) {
if ($file = test_file1.txt)
{
$addfile = "C:/Documents and Settings/Sam_Gov/Desktop/test_file/" . $file;
$zipfile = "C:/Documents and Settings/Sam_Gov/Desktop/test_file/" . $file . ".zip";
$zip = Archive::Zip->new();
$zip->addFile( $addfile );
$zip->writeToFileNamed( $zipfile );
}
}
closedir(PREV);