open(fileOUT,">>../Rules1.txt") or dienice("Can't open counter.txt: $!");; print fileOUT "Code1\n"; close(fileOUT);