use Archive::Zip; 
		my $zip = Archive::Zip->new();   # new instance
		$zip->addTreeMatching( "/$NewHomePath/Results/$InvoiceNumber", "$InvoiceNumber", '\.(ab1$|seq$)' );
		print "Content-Type:application/zip\n";  
		print "Content-Disposition:attachment;filename=$FileNameToWrite\n\n";
		$zip->writeToFileHandle(*STDOUT);