open (PROG, "+<$filename");