>perl -E"use charnames ':full'; say charnames::viacode(0x00E9)"
LATIN SMALL LETTER E WITH ACUTE

>perl -E"use charnames ':full'; say sprintf '%04X', charnames::vianame('LATIN SMALL LETTER E WITH ACUTE')"
00E9