Select Code to Download

use LWP::UserAgent;
use XML::Simple;
...
  print "DECODED CONTENT WITH UTF-8 SPECIFIED: " . $response->decoded_
+content((charset => "utf8")) . "\n";
  print "MANUALLY DECODED: " . decode("UTF-8", $response->content());
}

open(RESULT, ">result.txt");
print RESULT $content;
close(RESULT);