perlでIPアドレス取得・表示

$ENV{'REMOTE_ADDR'}

ネタ元