$ perl -MSocket -le 'print unpack("N",inet_aton(shift||"192.168.1.1"))'                
3232235777
$ perl -MSocket -le 'print unpack("N",inet_aton(shift||"192.168.1.1"))' 127.0.0.1
2130706433