unless (open(INFILE, $csv_filename)){
    print "Cannot open file \"$csv_filename\"\n";
    exit;
  }