use CGI qw( :cgi );
print(header(-type  => 'application/xml'));
... print XML here ...

##</code><code>##

print("Content-Type: application/xml\n");
print("\n");
... print XML here ...