$unicode_perl = 1;
{ local $SIG{__DIE__}; eval "use utf8; 1" or $unicode_perl = 0; }