while(<$cliendft>)
 {
  last if /^EOS$/;
 }
close ($clientfd);