sub CreateUser {
  my($userdb,$username,$password)=@_;
  print STDERR "Running Create User Subroutine.\n";
  # store md5 hash of password
  # my $digest = md5($password);
  # my $digest = md5_hex($password);
  # my $digest = md5_base64($password);

  # my $user = { username => $username, password => $digest };
  my $user = { username => $username, password => $password };
  $user = $userdb->user_create( $user );
  return;
}