fixed typo in perl script