use XML::SAX::Simple;
 local $XML::SAX::ParserPackage = "XML::SAX::PurePerl";
 my $hash = XMLin($xml);
 ...