perl -w -MSocket -e 'my $pip=gethostbyname("www.google.com");my $ip=inet_ntoa($pip);print $ip,"\n";'