alexa br 1-500

gistfile1.pl

use common::sense;
use Web::Scraper;

my $csv = '';
my $dom = scraper{
    process 'div.desc-container', 'site[]' => scraper {
        process 'span.topsites-label', 'domain' => 'TEXT';
        process 'h2 a', 'name' => 'TEXT';
}};

for my $n (1..20) {
    my $u = URI->new("http://www.alexa.com/topsites/countries;$n/BR");
    my $res = $dom->scrape( $u )->{site};
    say "$_->{name};$_->{domain}" for @$res;
}