my $dom;
while (1) {
  $dom = eval{ XML::LibXML->load_xml(location => $xmlurl) };
  last if $dom;
  print "Error getting xml-will retry: $@\n";
  sleep 5;
}