Select Code to Download

#!/usr/bin/perl

...

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

#!/usr/bin/perl

use strict;
...
    'Accept-Encoding' => $can_accept,
);
print $response->decoded_content(charset => 'none');