$ perl -le 'print pack("C*",split(/\./,"127.0.0.1"))' | od -t xC
0000000 7f 00 00 01
0000004