my ($fh, $tempfile) = tempfile();
    binmode( $fh, ":utf8" );