perl -MSocket -le'print unpack "H*", inet_aton "127.0.0.1"'