> my $s = IO::Socket::INET.new(:host('www.zephyrr.com'), :port(80)); $s.send("GET /dev/ip.php HTTP/1.1\nHost: zephyrr.com\nConnection: close\n\n"); say $s.recv;
HTTP/1.1 200 OK
Server: nginx/1.6.0
Date: Mon, 02 Jun 2014 12:06:39 GMT
Content-Type: text/html
Transfer-Encoding: chunked
Connection: close

c
74.96.112.94

> my $s = IO::Socket::INET.new(:host('www.zephyrr.com'), :port(80)); $s.send("GET /dev/ip.php HTTP/1.1\nHost: zephyrr.com\nConnection: close\n\n"); say $s.lines;
 04.96.112.94close: chunked06:47 GMT