add perl script