.....
while(my $new_sock = $sock->accept()) {
   $|=1;

  $new_sock->recv($text1, 600);
  $new_sock->recv($text2, 800);
}
....