#!/usr/bin/env perl

# 	$Id: weird_1nickt.pl,v 1.2 2017/07/13 17:10:29 karl Exp karl $	

use strict;
use warnings;
use feature qw(say);
use utf8;

my $file = q(weird.txt);

open( my $fh, '>', $file );
binmode $fh, ':encoding(UTF-8)';
say $fh qq(nase\ngöre);
close $fh;

say qx (file -I $file);
say qx(echo \$LANG);
say qx(cat $file);

open( $fh, '<', $file );
binmode $fh, ':encoding(UTF-8)';
binmode STDOUT, ':encoding(UTF-8)';
say <$fh>;
close $fh;


__END__

karls-mac-mini:monks karl$ ./weird_1nickt.pl 
    weird.txt: text/plain; charset=utf-8

de_DE.UTF-8

nase
göre

nase
göre