#!/usr/bin/perl

use CGI::Request;

$req = GetRequest($pkg);
$cgi_obj = $req->cgi;
$cgi_var = $req->cgi->var("REMOTE_ADDR");

print "your client IP is ".$cgi_var."\n";