$ua->click;

           die "I'm failing ", $ua->reload
               unless $ua->success;

 
sleep 15;

##</code><code>##

while ($ua->response->content =~ m/nextbut/i) {
  until ( $ua->click->is_success ) {
    warn "Submission failed: I'll sleep for a while";
    sleep 15;
    $ua->reload;
  }
  # etc., etc.
}