Select Code to Download

use Encode 'decode';
...
...
binmode $fh2, ":encoding(UTF-8)";

print $fh2 $text, "\n";