bug fix in the new perl script