sub print {
    ...
    if($perl_version > 5.006 && ! $t->{twig_keep_encoding}) 
      { if( grep /useperlio=define/, `$^X -V`)
          { binmode( $fh || \*STDOUT, ":utf8" ); }
      }
    ...