- print '<head><title>'.CGI::escapeHTML($W->{"title_prefix"})
- .join("",map({ ': '.CGI::escapeHTML($_); } ($W->{"title"} || ())))
- .'</title>'."\n";
+ my $title=$W->{"title_prefix"}.join("",map({ ': '.$_; } ($W->{"title"} || ())));
+ $title=~s#<[^>]*>##g;
+ print "<head>";
+ print "<title>$title</title>\n";