Select Code to Download

#!/usr/bin/perl

...
# $xml = encode('iso-8859-1', $xml);   (doesn't fix the problem)
my $data = XMLin($xml);
print pre(Dump($data)), end_html;

Content-Type: text/html; charset=ISO-8859-1

...
                                                                      
+                        ^
 at /usr/lib/perl5/XML/LibXML/SAX/Parser.pm line 31