как в перл ... ?

[wd_andrey]

А зачем вам кукиши вообще?
Многие их вообще не используют.

$ip=$ENV{'HTTP_X_FORWARDED_FOR'};
   unless(defined $ip)
   {
       $ip=$ENV{'REMOTE_ADDR'};
   }

Вот так и узнаешь айпишник и по нему домен (если даст).
вот и все.