sub validip {
  my ($ip)=@_;
  my $x;
  foreach ($ip=~/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/){
    $x++ if(($_>=0)&&($_<=255));
  }
  return($x==4);
}