$ perl -MSocket -wE 'say unpack "N", inet_aton ("127.0.0.1");'
2130706433
$ echo '127 * 256^3 + 1' | bc
2130706433
$