print $q->header(-type => 'text/xml', -attachment => 'filename.xml');