Create perl script