Mojo::UserAgent with gzip support

mojo_ua_gzip.pl

#!/usr/bin/env perl

use 5.12.0;
use Mojo::UserAgent;
use Compress::Zlib;

my $ua = Mojo::UserAgent->new;
$ua->on( start => sub {
    my ( $ua, $tx ) = @_;

    $tx->req->headers->header('Accept-Encoding' => 'gzip');

    $tx->on( finish => sub {
        my $tx = shift;
        $tx->res->body(Compress::Zlib::memGunzip($tx->res->body))
            if $tx->res->headers->header('Content-Encoding')
            && $tx->res->headers->header('Content-Encoding') =~ /gzip/;
    });
});

my $tx = $ua->get('https://metacpan.org/module/Mojolicious');
say $tx->res->body;