autodie handles your errors with less effort. Also try open with encoding, esp if opening more than one file, for cleaner code:

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

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