Or even better, use XM::Generator::DBI, which will generate SAX events from the result of a query. You can then pass those events to a SAX printer, for example XML::Handler::YAWriter or XML::Handler::XMLWriter to print them. This will take care of encoding the < and & in the results and pretty print the XML.