Select Code to Download

     use Socket;

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

      3232235778
      192.11010306
      49320.258
...
      192.43009.2
      49320.1.2
      192.168.1.2