#!/usr/bin/perl 
use strict;
use warnings;
use Compress::Zlib;
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
my $now = "Tue, 15 Jul 2008 12:06:38 GMT";
my $content = '';
$content .= "$_ test test test test test \n" for (1..1000);
my $b = Compress::Zlib::memGzip("$content") or die("Compression: $!");
my $l = length($b) or die ('buffer has no length');
my $md5 = md5_hex($b) or die ('md5 not calculated');
print <<HTTP;
Allow: GET, POST
Connection: close
Content-Encoding: gzip
Content-Length: $l
Content-MD5: $md5
Content-Type: text/plain
Date: $now
Last-Modified: $now

HTTP
binmode(STDOUT);
print("$b");

my $log;
if (open($log, '>', '/tmp/z.log')) {
  binmode($log);
  print $log $b;
  close($log);
}