my $ip = $ENV{'REMOTE_ADDR'};
BEGIN {
    if ( $ip ) {
         [...]
    }
}