open(my $fn, '<', $filename) ...