perl script update