%@LANGUAGE=PerlScript%>
<% $Response->write( sprintf( "IP address = %s", $Request->ServerVariables( "REMOTE_ADDR" )->item ) ); %>