open (PROG, "+>>$0");