Update perl script