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