open(INPUT, "input.txt") or 
      warn("Could not open file input.txt $!\n");