perl -MTest::More=tests,1 -MDigest::MD5=md5_hex -e'
   $_ = chr(0xE9);
   utf8::downgrade( $dn = $_ );
   utf8::upgrade(   $up = $_ );
   is(md5_hex($up), md5_hex($dn));
'
1..1
ok 1