a couple perl script changes.