Select Code to Download

#!/usr/bin/perl

use strict;
...
binmode OUTTEMP, ':encoding(utf8)';
print OUTTEMP "some text" . encode_entities($e) . "some text\n";
close OUTTEMP;

#!/usr/bin/perl -l

...

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