my $line = encode("utf8",$lineo);
open(TEK,">:utf8","temp.tex");
print TEK $line;

##</code><code>##

my $line = encode("utf8",$lineo);
open(TEK,">","temp.tex");
print TEK $line;

##</code><code>##

my $line = $lineo;
open(TEK,">:utf8","temp.tex");
print TEK $line;