$ipaddr = $s->param('_SESSION_REMOTE_ADDR');
$hostname = qx#host $ipaddr |awk {'print \$5'}#;


##</code><code>##

$ipaddr = $1 if $s->param('_SESSION_REMOTE_ADDR') =~ /([\d.]+)/;