Select Code to Download

#!/bin/perl -w

...
my $zip = Archive::Zip->new();
my $member = $zip->addFile('t.out');
die 'Error writing file' if $zip->writeToFileNamed('foo.zip') != AZ_OK
+;

#!/bin/perl -w

...
#do your stuff here
#everything written to FOO gets compressed and stored in foo.gz
print FILE "hello world\n";