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