pull perl script