This is part of the apache API, you can take a look at all the API's at mod_perl It's something like:

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 

}
[download]