my $req;
  my $response;

  $req = "$wikiurl?title=Special:UserLogin&returnto=Main+Page";
  print "req = GET $req\n";
  $response = $ua->request(
      GET $req,
      );
# look for for cookie-set request from server, ie.  mediawiki_isg_session=954d4797c18ca9054f14c2675af3255e; path=/; HttpOnly
#
  foreach (keys %{$response->{'_headers'}}) {
    if ($_ =~ /^set-cookie$/i) { # server attempting to set a cookie
      my $c = $response->{'_headers'}->{$_};
      print "Server header set-cookie = $c\n";
    }

  }

  my @lines = split /\n/, $response->content();
  foreach (@lines) {
    if (/name="wpLoginToken" value="([0-9a-z]+)"/)
    {
      my $token = $1;
      $params{'wpLoginToken'} = $token;
      print "found token=$token, line=$_\n";
    }
  }
  $cookie_jar->extract_cookies( $response );