sub zipit(){
	my ($zipName,$memberName)=@_;
	my $zip = Archive::Zip->new();
	$zip->addFile( $memberName );
	my $zipstatus = $zip->writeToFileNamed($zipName);
}