Update perl.txt