quick updates to example perl script