#!/usr/bin/env perl

#       $Id: weird_choroba.pl,v 1.2 2017/07/13 20:47:38 karl Exp karl $  

use strict;
use warnings;
use feature qw(say);
use utf8;
use open IO => ':encoding(utf-8)', ':std';

my $file = q(weird.txt);

open( my $fh, '>', $file );
say $fh qq(nase\ngöre);
close $fh;

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

open( $fh, '<', $file );
say <$fh>;
close $fh;

__END__

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

de_DE.UTF-8

nase
göre

nase
göre