open my $din, '<', $file_name or die "failed to open $file_name: $!";