my ($input_root) = ($input_file =~ /([^\\\/]+)\.\w+$/);
open(IN,     "<$input_file")  or die "Couldn't open file: $!: $input_file";
while(<IN>) {
  if (/\r\n/) { die "DOS files not allowed" }
  $total_lines++;
}