#!/usr/bin/env perl

use strict;
use warnings;

use utf8;
use Encode;

# Let's use the "Medium shade" block, Unicode point 0x2592
# https://www.unicode.org/charts/beta/nameslist/n_2580.html
my $unicodechar = "\N{MEDIUM SHADE}";

print "Character code: ", ord($unicodechar), "\n";

print "Character: ", $unicodechar, "\n"; # "Wide character in print at unicode_perlmonks.pl line 15."

my $utf8 = encode('UTF-8', $unicodechar, Encode::FB_CROAK);

print "Character as UTF8: ", $utf8, "\n";