adding perl script support