Help for this page

Select Code to Download

Select or download this

use IO::Select ();

...
   or die("Time out!\n");

$MySocket->recv($text);