#0748(忍氏)の書き込みを引用します:
＞$host = $ENV{"REMOTE_ADDR"};
＞if ($ENV{"HTTP_FORWARDED"} =~ / for (.*)/) {
＞  $host = $1;
＞}

これでいいですよ。

上は何やってるかですが、
1行目がリモートホスト情報を調達して、
2行目がプロキシサーバーかどうかの判定。
プロキシだった場合３行目で本当のサーバー情報に変更してます。