use strict;
use warnings;
use utf8;
my $string = '£';

open my $output, '>:encoding(utf8)', 'out.txt' or die $!;
#binmode $output,  ":encoding(utf8)";
print $output $string;
close $output;