Help for this page
my $names_file = "code.txt"; open(NAMES, $names_file || die "Could not open file!");
open(NAMES, $names_file) || die "Could not open file!";
open NAMES, $names_file or die "Could not open file!";