use Encode "encode";

sub U2Entity {
    return '&#x'.unpack("H*", encode("ucs2be", shift)).';';
}

##</code><code>##

sub Any2Hex {
    return unpack("H*", shift);
}