my $dbh = DBI->connect('DBI:mysql:MYDATABASE','user','password')
  or die DBI->errstr;

my $recs = $dbh->selectall_arrayref('SELECT * FROM contents',{ Columns => {} });
my $resc2 = $dbh->selectall_arrayref('SELECT * FROM contacts',{ Columns => {} });

# Convert to XML where each hash element becomes an XML element
my $xml = XMLout( {contents => $recs
		   contacts => $recs2},
		   NoAttr => 1 );

print $xml;

$dbh->disconnect;