Select Code to Download

<?xml versions="1.0"?>
<spam-document version="3.5" timestamp="2001-05-13 15:33:45">
...
<age>2</age>
</customer>
</spam-document>

#!/usr/bin/perl -w

...

      print XMLout($cust_xml);
      print "\n";