#!/usr/bin/perl  
# go fetch the Naborale of the Day on babyl.dyndns.org and
# display it
use IO::Socket::INET;
($p,$h,$x)=(80,'babyl.dyndns.org',' 'x4);$sock=IO::Socket::INET->
new(PeerAddr=>$h,PeerPort=>$p,Proto=>'tcp',Timeout=>$p);  $sock->
autoflush;print$sock join"\015\012","GET /naborales/notd.txt HTTP/1.0", 
"Host: $h:$p","","";1while sysread($sock,$_,8192,length);s/\n/$x\n/g;
s/.*?(?=Nab)//s;print;