C:\etc>type hosts
127.0.0.1  www.google.com.au

C:\etc>perl -MSocket -wle "my $pip=gethostbyname('www.google.com.au');my $ip=inet_ntoa($pip);print $ip;"
142.250.66.195