<%@ LANGUAGE = PerlScript %> <% $Response->Write($ENV{REMOTE_ADDR}); %>