perl -e 'use LWP::UserAgent; print LWP::UserAgent->new()->head("http://cosmicperl.com")->headers()->as_string'
Connection: close
Date: Mon, 11 Jun 2007 02:53:48 GMT
Accept-Ranges: bytes
Server: Apache/2.0.54 (Fedora)
Vary: Accept-Encoding
Content-Type: text/html; charset=ISO-8859-1
Client-Date: Mon, 11 Jun 2007 04:23:12 GMT
Client-Peer: 213.133.65.182:80
Client-Response-Num: 1

##</code><code>##

perl -MSocket -le 'print inet_ntoa(inet_aton("cosmicperl.com"))'
213.133.65.182