Select Code to Download

$ perl -MData::Dumper -MXML::Simple -e 'print Dumper XMLin(q{example.x
+ml});'
$VAR1 = {
...
                                 }
                     }
        };

print "xml content: '$xml'\n";