script from piratebay scraper in perl