sub handler {
  my $r = shift;
  warn "OK handler\n";
  warn "CT: ", $r->content_type, "\n";
  $r->content_type eq 'text/html' || return DECLINED;
  warn "OK text/html\n";