binmode STDOUT, ':raw'; 
$rendered = Encode::encode(utf8 =>$rendered);
$byte_count =  length $rendered;
print <<HTML;
Content-Length: $byte_count
Content-Type: text/plain; charset=utf-8

HTML
exit 0;