Help for this page

Select Code to Download

Select or download this

use Socket;
                                                                      
+          
...
   my ($ip) = @_;
   return unpack('N', inet_aton($ip));
}