while ($more) {
  $page++;
  $url = "https://[server name is here]/[path information here]/$element/HAY/?page=$page";
  $filepage = "0" x (3 - length($page)) . $page;
  $response = $browser->get($url,':content_file' => $tempxml,);
  $file = "$output\\$element" . "_" . $filepage . ".xml";
  $response = $browser->get($url,':content_file' => $file,);
  die "Couldn't get $url\n" unless defined $response;
  $more = &check_tmp;
  unlink ("temp.xml");
  print "Completed $element page \($page\) file \($filepage\) \($more\) ...\
}

##</code><code>##

$browser = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0,
                                           SSL_verify_mode => SSL_VERIFY_NONE});