print ip_error() unless $ENV{REMOTE_ADDR} eq $ip;