Perl script for webcrawler - firechasers