Help for this page
use Encode qw(encode decode);
my $thearesp = encode("iso-8859-1", decode("UCS-2LE", $theresponse->co +ntent));