use strict;
use warnings;
use autodie;
use open ':encoding(UTF-8)';

my $filename = 'dirtest.txt';
open my $fh, '<', $filename;