#!/usr/bin/perl

use strict;
use warnings;
use HTTP::Message;

my $can_accept = HTTP::Message::decodable();
print $can_accept, "\n";

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $can_accept = HTTP::Message::decodable;
my $response = $ua->get('http://www.perlmonks.org',
    'Accept-Encoding' => $can_accept,
);
print $response->decoded_content(charset => 'none');