open fileOUT, ">> searchresults.htm";
 print fileOUT $ua->response->content;
close fileOUT;
# loop through the rest
while ($ua->response->content =~ m/nextbut/i) {
$ua->form_name( 'nextbut' );
$ua->click;

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

 
sleep 15;
 open(fileOUT, ">>searchresults.htm");
   print fileOUT $ua->response->content;
      close(fileOUT);}