my $writer = XML::SAX::Writer->new(); my $xsl_filt = XML::Filter::XSLT->new(Handler => $writer); my $sax_filt = XML::Filter::SAX1toSAX2->new(Handler => $xsl_filt); my $generator = XML::Generator::DBI->new( Handler => $sax_filt, dbh => $dbh, );