use strict;
use Encode;
my $lineo ='azertyuiop';
my $line = encode("utf8",$lineo);
open(TEK,">:utf8","temp.tex") || die("Cannot Open File");
print TEK $line;
print TEK <<EOF;
123456<<<<<
EOF
close TEK;