open my $file, '<', $fn or die "Cannot open $fn: $!\n";