$ perl -e'print "\x{2639}"'
Wide character in print at -e line 1.
☹

##</code><code>##

PERL_UNICODE=SDL perl -e'print PerlIO::get_layers(STDOUT)'
unixperlioutf8