#!perl/bin/perl

use strict;
use DBIx::XML_RDB;
my $dsn = "DBI:mysql:database=test;host=localhost";

my $dbx = DBIx::XML_RDB->new($dsn, 'mysql', 'root', 'admin');
$dbx->DoSql(qq{ SELECT * from table });

open(XML, ">table.xml") or
			die "Could not open file for writing: $! \n";

print XML $dbx->GetData;

close XML or die "Error closing file: $!\n";