Select Code to Download

# Yes, I could use a different slurp funciton...
my $readin="";
...
}
close IN;
my $result = XMLin($readin,KeyAttr=>{item=>'name'},ForceArray=>1);

my $result = XMLin("out.xml",KeyAttr=>{item=>'name'},ForceArray=>1);