my $ip = '127.0.0.1';
print unpack('N', pack 'C*', split /\./, $ip),"\n";
__END__
2130706433