add first perl script