sub importXML
{
  if (not defined $LastEditToken)
  {
    my $response = $ua->request(
       GET "$wikiurl?title=Special:Import",
       );
    if ($response->content() =~ /value="([0-9a-z\+\\]+)"\s+name="editToken"/)
    {
      $LastEditToken = $1;
      print "==found token=$LastEditToken\n";
    }
  }

  my $url = "$wikiurl?title=Special:Import&action=submit";
  print "Sending request to $url,\n   using token $LastEditToken\n";
  my $response = $ua->request(
      POST "$url",
      Content_Type => 'multipart/form-data',
      Content =>
      [
        'action' => 'submit',
        'source' => 'upload',
        'editToken' => $LastEditToken,
        'MAX_FILE_SIZE' => $MaxXmlSize,
        'xmlimport' => [$filepath],
      ]
      );
  if ($response->is_success) {
    if ($response->content() =~ /value="([0-9a-z\+\\]+)"\s+name="editToken"/)
    {
      $LastEditToken = $1;
      print "==found token=$LastEditToken\n";
    }
    return 1;
  } else {
    return 0;
    print $response->content();
  }
}