WWW::Mechanize::AutoPager3pm

  use WWW::Mechanize::AutoPager;
  my $mech = WWW::Mechanize->new;
  # Load siteinfo from http://swdyh.infogami.com/autopagerize
  $mech->autopager->load_siteinfo();
  # Or, load manually
  $mech->autopager->add_site(
      url => 'http://.+\.tumblr\.com/',
      nextLink => ...,
  );
  $mech->get('http://otsune.tumblr.com/');
  if (my $link = $mech->next_link) {
      $mech->get($link);
      $mech->page_element; # HTML snippet
  }