use  threads;  use IO::Socket;
@thread =  map threads->create
('fetch',$_),9655,6352,297065,
138903;  $_->join for @thread;
print $/;  sub fetch { $sock =
IO::Socket::INET->new(qw(PeerAddr
perlmonks.org  PeerPort  80));
print $sock  "GET /?node_id=".
"$_[0]&displaytype=xml  HTTP".
"/1.0\n\n"; print do{local $/;
<$sock>} =~ /title="(\w+\s)/;}