use CGI;
if( CGI->http('accept') =~ m'\Qapplication/xhtml+xml\E'i ){
   print CGI->header( 'application/xhtml+xml; charset=utf-8 ');
} else {
   print CGI->header( 'text/html; charset=utf-8 ');
}