sub handler{
  my $r = shift;
  my $s = $r->server;
  # $s->server_admin
  # $s->server_hostname
  # $s->port 
  # etc.

  # connection
   my $c = $r->connection;
  # $c->remote_host
  # $c->remote_ip 

}