Select Code to Download

$ua->click;

...

 
sleep 15;

while ($ua->response->content =~ m/nextbut/i) {
  until ( $ua->click->is_success ) {
...
  }
  # etc., etc.
}