# some base class that overrides a handler
sub handle {
   my ($self) = @_;
   my $dbh = $self->{dbh};
   my $ses = $self->{session};

   my $sth = $dbh->selectall_arrayref("
      select id from agents
   ");
   
   my $users     = [map { {user => $_->[0]} } @$sth];
   my $paramsout = {users => $users};

   return $paramsout;
}