$ perl -MSocket -e 'printf(("%02x"x4)."\n",unpack"C4",inet_aton shift)' 127.0.0.1
7f000001