open my $inFile, '<', "datebook.txt" or die "Can't open datebook.txt: $!\n";