Select Code to Download

if ($handle == $mcserver) {
  if (sysread $handle, $result, 1024) {
    # ... deal with it ...
...
    $mcserver = new IO::Socket::INET(PeerAddr => $mchost, PeerPort => 
+$mcport, Timeout => 6);
    $links->add($mcserver);
  }