sub check_ip {
   my ($ip1,$ip2) = @_;
   return $ip1 eq $ip2;
}