use Encode      qw( decode encode );
use LWP::Simple qw( get );

my $URL     = ...;
my $web_enc = 'UTF-8';
my $out_enc = 'iso-latin-1';

my $web_octets = get($URL);
my $chars      = decode($web_enc, $web_octets);
my $out_octets = encode($out_enc, $chars);
print($out_octets);

##</code><code>##

use LWP::UserAgent qw( );

my $URL     = ...;
my $out_enc = 'iso-latin-1';

# Saves us from encoding chars sent to STDOUT.
binmode(STDOUT, ":encoding($out_enc)");

my $ua = LWP::UserAgent->new();
my $response = $ua->get($URL);
my $chars    = $response->decoded_content(default_charset => 'UTF-8');
print($chars);

##</code><code>##

use LWP::UserAgent qw( );

my $default_web_enc = 'UTF-8';
my $default_out_enc = 'iso-latin-1';

sub term_encoding {
   return (
      (  eval { require Term::Encoding }
      && Term::Encoding::term_encoding()
      )
   || $default_out_enc;
   );
}

my $URL = ...;

binmode(STDOUT, ':encoding(' . term_encoding() . ')');

my $ua = LWP::UserAgent->new();
my $response = $ua->get($URL);
my $chars = $response->decoded_content(
   default_charset => $default_web_enc,
);
print($chars);