use warnings;
use strict;
use Data::Dump;
use WWW::Mechanize;
use Compress::Zlib;

my $gunzip = inflateInit(WindowBits => 16 + MAX_WBITS)
	or die "Cannot create a inflation stream\n";

my $mech = WWW::Mechanize->new();
$mech->add_handler( response_data => sub {
	my ( $response, $ua, $h, $data ) = @_;
	my ($buffer, $status) = $gunzip->inflate($data);
	die "zlib error: $status" if length $status;
	dd $buffer;
	1;
});
$mech->get('http://localhost:5000');