sub charset {
  my $type = shift->headers->content_type || '';
  if ($type =~ /charset="?([^"\s;]+)"?/i) {
    return $1 if find_encoding($1);
  }
  return undef;
}