perl -MSocket -M5.010 -e 'say inet_ntoa((gethostbyname("name"))[4]);'