Just updating the perl script to fix a bug