perl -MSocket -e "print map {qq($_ : ).inet_ntoa((gethostbyname$_)[4]).qq(\n)} @ARGV"