List a website's content encoding

content_encoding.pl

#!/usr/bin/perl

use v5.16;
use warnings;
use autodie qw( :all );

use utf8::all;
use LWP::UserAgent;
use Data::Show;

my $url        = 'http://reddit.com/r/linux/.json';
my $ua         = LWP::UserAgent->new;
my $can_accept = HTTP::Message::decodable;

my $response = $ua->get( $url, 'Accept-Encoding' => $can_accept, );
show $response->{_headers};