Select Code to Download

open(my $fh, '<:encoding(UTF-8)')
   or die;

binmode(STDIN, ':encoding(UTF-8)');

use Encode qw( decode );
my $line_bytes = <$fh>;
my $line_chars = decode('UTF-8', $line_bytes);