Add perl script