mem #0

$q->header(-charset=>'windows-1251'),
$q->start_html( -title=>'ttl', -encoding=>'windows-1251');