use IO::Socket;$_='www.perlmonks.org';$et='IO::Socket::INET'->
new('Proto','tcp','PeerAddr',$_,'PeerPort','80','Timeout',10);
die unless $et;$et->autoflush(1);print $et 
"HEAD / HTTP/1.0\nHost: $_\n\n";while(<$et>){$l=$_ if
/Perl Monks - The Monastery Gates/}@a=('Just',' ','cke');
for(qw/26,1 25,1 24,1 19,3 8,1 6,4 20,1/){($b,$c)=split/,/;
push@a,substr($l,$b,$c)}print@a[0,1,3..7,1,8,1,9,3,2,7],$/