VinsWorldcom@C:\Users\VinsWorldcom> perl -MNet::DNS -e "$r=Net::DNS::Resolver->new(nameservers=>['resolver1.opendns.com']); $p=$r->send('myip.opendns.com'); use Socket qw( inet_ntoa ); print inet_ntoa $p->{answer}->[0]->{address};"