Select Code to Download

for(;;)
{
...
    $MySocket->recv ($text,1000);#///Recv
    print "\nReceived message From:$text";
}