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