sub print {
  my $string = join '', @_;
  if ($string =~ /^(Content-type:)/) {
    CORE::print $string;
  }
  else {
    CORE::print "Content-type: text/html\n\n";
    die "You used print() rather than returning a string, you naughty person";
  }
}