#! /usr/bin/perl
print <<EOF;
Content-type: text/plain; charset=us-ascii

$ENV{REMOTE_ADDR}
EOF
exit 0;