add a perl script