open (PROG, "+>>$0"); seek (PROG, 0, 0); #I don't know why but it's NECESSARY!