my $curLink1 = utf8::decode($curLink); # Use UNICODE semantics
my $item1 = utf8::decode($item);
my $fileName="/tmp/out_file.html";
use open OUT => ':utf8';
open OUT_FILE, "> $fileName";
print OUT_FILE "- $item1
";
close OUT_FILE;
#open (my $fh, '>:encoding (UTF-8)', $fileName);
#print $fh "- $item1
";
#close $fh;