Adding perl script