use strict;
use DBI;
use XML::Generator::DBI;
use XML::Handler::YAWriter;

my $biblioperl = yadda yadda ...

my $dbh = DBI->connect(
   "dbi:ODBC:$biblioperl",
   {RaiseError => 1},
);

my $handler   = XML::Handler::YAWriter->new(AsFile => 'biblio.xml');
my $generator = XML::Generator::DBI->new(
   Handler => $handler,
   dbh     => $dbh,
   Indent  => 1,
);

my $consulta = yadda yadda ...
$generator->execute($consulta);

$dbh->disconnect;
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)