Retrieving Encoded Web Content 

use LWP::UserAgent;
use Devel::Peek;

my $ua = LWP::UserAgent->new();
my $resp = $ua->get('http://www.example.com/euro.txt');
my $content = $resp->decoded_content;

Dump($content);

• Output:

SV = PV(0x8463ad0) at 0x814c6a8
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,POK,pPOK,UTF8)
  PV = 0x844eca8 "Euro: \342\202\254\n"\0 [UTF8 "Euro: \x{20ac}\n"]
  CUR = 10
  LEN = 11