Select Code to Download

for my $i (0..10000) {
  $ua->get('siteone_dot_com?show_subsite', id => , extern_uid => $i);
  # process reply
}

  use strict; 
  use warnings; 
...
    my $m = WWW::Mechanize->new;

    $m->get("the domain name ");