Select Code to Download

#!/usr/bin/perl -w
# For correct results, use on a terminal expecting utf-8
use strict;
...
]);

print $m->as_string;

#!/usr/bin/perl -W
# vim:fileencoding=utf-8
# PuTTY option: Remote character set = UTF-8
...
binmode(STDOUT, ':raw');
print $s; # warns: wide char in print
print encode_base64($s); # dies: wide char in sub entry