Select Code to Download

        use Archive::Zip; 
        my $zip = Archive::Zip->new();   # new instance
...
        print "Content-Type:application/zip\n";  
        print "Content-Disposition:attachment;filename=$FileNameToWrit
+e\n\n";
        $zip->writeToFileHandle(*STDOUT);

        use Archive::Zip; 
        my $zip = Archive::Zip->new();   # new instance
...
                $zip->writeToFileHandle(*STDOUT);
            }
        }