use strict;
use warnings;

my $string = '£';

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