open(INP,"+>", $file) or die "couldn't open input file: $!";