HTTP::Tiny w/ gzip support

http_tiny_gzip.pl

use utf8; use strict; use warnings; use feature qw'say state';
use URI; use HTTP::Tiny;
use IO::Uncompress::Gunzip 'gunzip';

say fetch('http://some-site');

sub fetch {
    my $response = (state $ua = HTTP::Tiny->new(default_headers => {qw'Accept-Encoding gzip'}))->get(URI->new($_[0]));
    say join '', ($response->{success} ? 'ok' : 'fail'), ': ', $_[0];
    $response->{success} && length $response->{content}
        ? $response->{headers}{'content-encoding'} eq 'gzip'
           ? do { gunzip(\$response->{content}, \ my $buf); $buf }
           : $response->{content}
        : die "couldn't fetch\n" }