add perl script
update