$XML::Simple::PREFERRED_PARSER = 'XML::Parser';

##</code><code>##

$ENV{XML_SIMPLE_PREFERRED_PARSER} = 'XML::Parser';

##</code><code>##

use XML::Simple qw( XMLin );

sub parse_xml {
   local $XML::Simple::PREFERRED_PARSER = 'XML::Parser';
   return XMLin(@_);
}

my $xml = parse_xml(...);