@tl = ( 85, 78, 73, 46, 68, 69 );
($gothostbyaddr) && ( $head = $gothostbyaddr );
if ( length( $ENV{QUERY_STRING} ) > 1 ) { $reff = $ENV{QUERY_STRING}; }
else {
    $reff = $ENV{HTTP_REFERER};
    $reff =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
}
$head .= " $reff";