use Socket;

     sub IsValidIP
     {
          return $_[0] =~ /^[\d\.]*$/ && inet_aton($_[0]);
     }

##</code><code>##

      3232235778
      192.11010306
      49320.258
      192.168.258
      12625921.2
      192.43009.2
      49320.1.2
      192.168.1.2