Added Perl email scraper