Aladdin Systems' Stuffit Expander is pretty much the de facto decompression program on the Mac (it's come preinstalled for years). While it has its own compression format, .sit, it can also handle .zip files perfectly (as well as .tar, .gz, .smi, .uu, .lzh, and others). Zip files should pose no problem for Mac users.

Good idea, dws.

The code I used looks like this:

my $file = 'd:\imaging\building.jpg';
my $zip_name = get_session() . ".zip";
my $zip = Archive::Zip->new();
$zip->addFile($file) or die "Can't add to zip!\n";
$zip->writeToFileNamed($zip_name);

my $filesize = -s $zip_name;
my $buffer;

# Read the zip file
open READ, "< $zip_name" or die "Cannot open $zip_name for reading: $!
+";
binmode READ;
{
    local $/;
    $buffer = <READ>;
}
close(READ);
binmode STDOUT;

print "Content-Disposition: inline; filename=document.zip\n";
print "Content-Length: $filesize\n";
print "Content-Type: application/zip\n\n";
print $buffer;
[download]

MrCromeDome

Same problem though: when the zip file gets to the client, it's not usable.

Archive::Zip says this:

Under Windows, things lock up/get damaged

Q: I'm using Windows. When I try to use Archive::Zip, my machine locks up/makes funny sounds/displays a BSOD/corrupts data. How can I fix this?

A: First, try the newest version of Compress::Zlib. I know of Windows-related problems prior to v1.14 of that library.

If that doesn't get rid of the problem, fix your computer or get rid of Windows.