Select Code to Download

use Modern::Perl;
use charnames ':full';
binmode STDOUT, ':utf8';

my $unicode = "\N{WHITE SMILING FACE}";
say sprintf '%s has unicode %X', $unicode, ord($unicode);