my $zip = Archive::Zip->new();
$zip->addFile($file);
$zip->writeToFileHandle(*STDOUT);