#! /usr/bin/perl -w

use strict;
use Compress::Zlib;

print "Content-Type: text/plain\n";
$ENV{HTTP_ACCEPT_ENCODING} ||= '';

if ( $ENV{HTTP_ACCEPT_ENCODING} =~ /gz/ )
{
  print "Content-encoding: gzip\n\n";
  my $gz = gzopen ( \*STDOUT, "wb" );
  $gz->gzwrite ( "I'm compressed" );
} 
else 
{
  print "\n";
  print "I'm not compressed\n";
}
__END__

##</code><code>##

#! /usr/bin/perl

use LWP::Simple;
use Compress::Zlib;

$a = get( 'http://www.perlmonks.com' );
$b = Compress::Zlib::memGzip( $a );

print "uncompressed: ", length( $a ), "\n";
print "compressed: ", length ($b), "\n";
__END__

##</code><code>##

RewriteCond %{HTTP:accept-encoding} gzip
RewriteCond %{REQUEST_FILENAME}.gz -f
RewriteRule ^(.+)$ $1.gz [L]