+ print CGI::header(-type=>'application/xhtml+xml; charset=utf-8');
+}
+sub print_see_other {
+ my $location = shift;
+
+ print CGI::header(-status=>'303 See other',
+ -location=>'http://ccbs.sesse.net/' . $location,
+ -type=>'text/html; charset=utf-8');