use threads;use IO::Socket;@thread=map threads
->create(fetch,$_),9655,6352,297065,138903;
print$_->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";local$/;(<$sock>=~/title="(\w+\s)/)}