use strict; use DBI; use XML::Generator::DBI; use XML::Filter::SAX1toSAX2; use XML::Filter::XSLT; use XML::SAX::Writer; my $dbh = DBI->connect( qw(DBI:vendor:database:host user pass), {RaiseError=>1}, );