HTTP::Tiny request with gzip plus response decompress

gistfile1.txt

use HTTP::Tiny;
use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
use Data::Printer;

my $ua = HTTP::Tiny->new(
  agent           => "Mozilla/5.0 (Windows 8; rv:24.0) Gecko/20100101 Firefox/24.0" ,
  default_headers => {
    'Accept-Encoding'  => 'gzip'
  }
) ;

sub _visit {
    my ( $url ) = @_;
    my $res = $ua->get( $url );
       $res = _decompress($res);
    return $res;
}

sub _decompress {
    my ( $res ) = @_;
    if (
      exists $res->{ headers } &&
      exists $res->{ headers }->{ 'content-encoding' } &&
      $res->{ headers }->{ 'content-encoding' } eq 'gzip' ) {
warn "CONTENT COMPRESSED HERE... decompressing";
        my $content = $res->{ content };
        my ( $content_decompressed, $scalar, $GunzipError );
        gunzip \$content => \$content_decompressed,
        MultiStream => 1, Append => 1, TrailingData => \$scalar
        or die "gunzip failed: $GunzipError\n";
        $res->{ content } = $content_decompressed;
      }
    return $res;
}


my $res = _visit( 'http://www.uol.com.br' );
warn p $res;