Select Code to Download

#!/usr/bin/env perl
use warnings;
...
use XML::Simple qw(:strict);
my $xml = XMLin($menufile,forcearray=>['item','command','exec','menu']
+,keyattr=>[],suppressempty=>undef);
print Dumper($xml);

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