@IPs='';
if (defined $ENV{HTTP_X_FORWARDED_FOR}) {
  @IPs=split /,/, $ENV{HTTP_X_FORWARDED_FOR};
} else {
  @IPs=split /,/, $ENV{REMOTE_ADDR};
}