update perl script