commit example perl script for homepage scraping