open (DATA,"$input_file") || eval {
  print "Can't open file $input_file: $@";
  exit;
};