my $mech = WWW::Mechanize->new();

$mech->get($url);

my $maxpage = 0;

foreach my $link ($mech->links) {
  $maxpage = $1 if $link->url =~ /\?page\=(\d+)$/ and $maxpage < $1;
}

my $page = 1;

extract($mech->links);

do {
  $page++;
  $mech->get("${url}?page=$page");
  extract($mech->links);
} while ($page<$maxpage);