Heh, I did just about the same thing:

sub get_remote_ip {
  my ($class, $apr) = @_;

  my @ips = split(/\s*,\s*/,  ($apr->header_in('X-Forwarded-For')     
+ 
                               || $apr->get_remote_host()   
                               || $apr->connection->remote_ip()));
  return shift @ips;
}
[download]

Works fine now! 1 bug down, uptitty-ump more to go!