It's probably a lot easier than this:

use Socket;
                                                                      
+          
my $ip = '127.0.0.1';
                                                                      
+          
my $int = ip_to_int($ip);
                                                                      
+          
print $int,"\n";
                                                                      
+          
print int_to_ip($int);
                                                                      
+          
sub int_to_ip
{
   my ($int) = @_;
   return inet_ntoa(pack('N', $int));
}
                                                                      
+          
sub ip_to_int
{
   my ($ip) = @_;
   return unpack('N', inet_aton($ip));
}
[download]

Note the use of pack and unpack here.

/J\