Select Code to Download

use DBI;
use Class::Phrasebook::SQL;
...
$sth->execute('Genesis');

print Dumper $sth->fetchall_arrayref({});

<?xml version="1.0"?>
<!DOCTYPE phrasebook [
...

</dictionary>
</phrasebook>