#!perl my $smiley = chr(0x263a); #"\x{263a}" my $rendered = < Title of the document

Test HTML my $rendered2 = < HTML # embed a Unicode character :) $rendered .= $smiley; # render footer $rendered .= $rendered2; use Encode qw{encode}; # [id://1164454] binmode STDOUT, ":raw"; $rendered = encode(utf8 =>$rendered); my $byte_count = length($rendered); print <