Readded perl script