sub display_add_user {
  my $self = shift;
  my $cgi = shift;
  my $dbh = shift;
  ...