Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
use XML::Simple;
...
print $xml;

$dbh->disconnect;