open (INP, "+>", $file) or die;