use strict;
use warnings;
use XML::Twig;
use XML::Simple;
use DBI;

my $dbname="sample";

my $dbh=DBI->connect("DBI:mysql:$dbname",'root','');

print "Database connected\n";

# Get an array of hashes
my $recs = $dbh->selectall_arrayref('SELECT * FROM test',{ Columns => {} });

# Convert to XML where each hash element becomes an XML element
my $xml = XMLout( {records => $recs}, NoAttr => 1 );
my $a=scalar($xml);
print "$a";