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

##</code><code>##

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

##</code><code>##

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

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