$UTF8{Euro} = pack( 'U', 0x20AC );
    # Equivalent to: $UTF8{Euro} = "\x{20ac}";

    $Unicode{Euro} = unpack( 'U', $UTF8{Euro} );