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