Select Code to Download

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

    my ($fh, $tempfile) = tempfile();
    binmode( $fh, ":encoding(UTF-8)" );