use strict;
use DBIx::XML_RDB;

my $xmlout = new DBIx::XML_RDB(qw(database:host driver user passwd))
          || die "Failed to make new xmlout";

$xmlout->DoSql("SELECT * FROM SONGS WHERE ARTIST='Genesis'");

print $xmlout->GetData();