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 "<item>$item1</item>";
     close OUT_FILE;
     #open  (my $fh, '>:encoding (UTF-8)',  $fileName);
     #print $fh "<item>$item1</item>";
     #close $fh;