# HOSTS
# 127.0.0.1 foo.example.com

perl -MSocket -E"say inet_ntoa(inet_aton($ARGV[0]))" foo.example.com

127.0.0.1