my $ip = $r->headers_in->get('X-Forwarded-For') || 
         $r->get_remote_host() || 
         $r->connection->remote_ip();
($ip) = split /\s*,/, $ip;