Select Code to Download

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

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