Whoops, unfinished though there :)

my($type, $charset) = $h->content_type_charset;
$h->content_type( $type ); # ditch charset
[download]