use PerlIO::encoding;
$PerlIO::encoding::fallback = Encode::FB_DEFAULT;