Help for this page

Select Code to Download

Select or download this

sub print {
    ...
...
          { binmode( $fh || \*STDOUT, ":utf8" ); }
      }
    ...