use Apache2::Connection; 
use Apcache2::RequestRec; 

my $client_ip = $r->connection->remote_addr;