Select Code to Download

my $xs = XML::Simple->new();
    $xst = eval { $xs->XMLin($xml,KeyAttr=>1) };
...
 
    print "Value of \$xst is:\n";
    print Dumper($xst);