Select Code to Download

<?xml version='1.0'?>
<queries>
...
        <filter></filter>
    </query>
</queries>

$simple1 = XML::Simple->new(ForceArray=>1, KeepRoot=>1);
$data1   = $simple->XMLin("query.xml");
print Dumper($data1) . "\n";

$VAR1 = {
          'queries' => [
...
                     ]
        };