my $obj = Archive::Zip->new();   # new instance
$obj->addTree( "$build_home/.", 'myapp' );
$zip_file="$build_dest/ama_".$myapp_version."_win32.zip";
unlink $zip_file;
$obj->writeToFileNamed($zip_file);