LWP::UserAgent で gzip, deflate のデータを受け取る

#!/usr/bin/env perl
# 日本語
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Message;
use utf8;

my $board_list_url = 'http://www.example.com/';

my $ua = LWP::UserAgent->new;
my $can_accept = HTTP::Message::decodable;

my $response = $ua->get($board_list_url, 
    'Accept-Encoding' => $can_accept
);

if ($response->is_success) {
    print $utf8->encode($response->decoded_content);

    # Perl の内部文字コードでコンテントを受け取らない場合は下記の引数を渡す
    # $response->decoded_content(charset => 'none');
} else {
    print $response->status_line;
}