$SelectStatement=$SQL->get($StmntTsk{Def},$StmntTsk{Args}) or throw TNBCriticalException("Cannot get SELECT SQL from Phrasebook"); my $XmlOutFile = $fqd_runlogdir.$MSTR::DLM.$StmntTsk{XMLOutput}; my $ya = XML::Handler::YAWriter->new(AsFile => $XmlOutFile); my $generator = XML::Generator::DBI->new( Handler => $ya, dbh => $dbh, ShowColumns => True ); $generator->execute($SelectStatement);