generalise perl script location