typo in perl script