#!/usr/bin/perl

use strict;
use warnings;
use HTML::Entities;

my $e = "\366\344"; 
open OUTTEMP, '>', '/root/Desktop/html.log';
binmode OUTTEMP, ':encoding(utf8)';
print OUTTEMP "some text" . encode_entities($e) . "some text\n";
close OUTTEMP; 

##</code><code>##

#!/usr/bin/perl -l

use strict;
use warnings;
use HTML::Entities;

my $e = "\366\344";
print encode_entities($e);