Update perl script path