#! /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__