Select Code to Download

mysql> SELECT INET_ATON('192.168.1.100');
+----------------------------+
...
|                 3232235876 |
+----------------------------+
1 row in set (0.00 sec)

mysql> SELECT INET_NTOA('3232235876');
+-------------------------+
...
| 192.168.1.100           |
+-------------------------+
1 row in set (0.00 sec)

#!/usr/bin/perl -w
use strict;
...

my $string = inet_aton("204.87.241.1");
print "$string\n";