perl -le '$lo = 127.0.0.1; $l = (gethostbyname("localhost"))[4];print "yup" if $lo eq $l'
yup

##</code><code>##

perl -le 'printf "%vd\n", (gethostbyname("localhost"))[4]'
127.0.0.1