# Works on unix.
# Works on Windows.
# Still doesn't work on Mac.

open(IN, '<', $input_file)
   or die "Couldn't open file $input_file: $!\n";
binmode(IN);
while (<IN>) {
   if (/\x0D\x0A/) { die("DOS files not allowed\n"); }
   $total_lines++;
}