open(X,"+<$INFILE");open(IN_FH,"<$INFILE");close(X);
#       ^please note the +