@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"; 


##</code><code>##

@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";

##</code><code>##

use warnings;
use strict;

##</code><code>##

unless ($ENV{REMOTE_ADDR} =~ ?10.10.0.1?){
...
}