Crawler in perl