Select Code to Download

while(1){
    $MySocket->recv($text,2);
...
                exit 1;
    }
}

print "\n",$def_msg;
while($msg=<STDIN>)
...
        exit 1;
    }
}

>> Server Program <<

 Number'1'

>> Server Program <<

...

That's a number
 Number'2'