#!/usr/bin/perl -Tw #accepts application/xhtml? if ($ENV{'HTTP_ACCEPT'} =~ /application\/xhtml\+xml/) { print "content-type:application/xhtml+xml; charset=utf-8\n\n"; } #no? then text/html they get else { print "content-type:text/html; charset=utf-8\n\n"; }