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;

##</code><code>##

0000000   a   z   e   r   t   y   u   i   o   p   1   2   3   4   5   6
        61 7a 65 72 74 79 75 69 6f 70 31 32 33 34 35 36
0000020   <   <   <   <   <  nl
        3c 3c 3c 3c 3c 0a