Title of the document

#!perl $rendered = < Title of the document

Test

HTML require Encode; $rendered = Encode::decode(utf8 =>$rendered); my $byte_count = length $rendered; print <

##

#!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 <