use Socket;
my $ip = '127.0.0.1';
print unpack('N', inet_aton($ip)),"\n";
__END__
2130706433