open(my $fn, '<', "$directory/$filename") ...