socket使用時の環境変数（REMOTE_ADDR）について
色々調べても結局わかりませんでしたので
もしお分かりになる方がいらっしゃれば
教えて頂ければ幸いです。
socketを使用するAというプログラムを作ったのですが、
そのプログラムからBというプログラムを呼び出した時、
Aに取得されるREMOTE_ADDRは、私のREMOTE_ADDRになるのですが、
Bに取得されるREMOTE_ADDRは、サーバのREMOTE_ADDRになってしまいます。
Bに対しても私のREMOTE_ADDRを取得させたいのですが、
方法はありますでしょうか？
具体的なSOCKET使用機構は以下のようになっております。
use IO::Socket qw(:DEFAULT :crlf);
$/ = CRLF . CRLF;
my $data;
my ($host,$path) = $url =~m!^http://([^/]+)(/[^\#]*)!;
my $socket = IO::Socket::INET->new(PeerAddr => $host, PeerPort => 'http(80)', Proto => 'tcp');
select($socket); $|= 1; select (STDOUT);
print $socket "POST $path HTTP/1.0",CRLF,CRLF;
close($socket);
どうぞ宜しくお願い致します。
お礼
回答頂きありがとうございました。