use 5.020;
use charnames ':all';

my $c = chr 0xc9;
say charnames::viacode(ord $c);    # LATIN CAPITAL LETTER E WITH ACUTE
say charnames::viacode(ord lc $c); # LATIN SMALL LETTER E WITH ACUTE