sub valid_ip

{

$iptest = '';

$ipaddress = $ENV{'REMOTE_ADDR'};

      open(DATA,"$valid_ips");

    @iplines = <DATA>;

  close(DATA);

      foreach $line_entry (@iplines){$iptest = $iptest.$line_entry;}                

      if ($iptest =~ /$ipaddress/) {

      }

      else {exit 0;}

}