sub FinishUp {
 my ($clientid) = @_; my $incoming="";
 while ( (sysread $clientid, $incoming, 1024) && != 0 ) { 
  print "Received Response from $clientid: $incoming\n";
  if ($incoming =~ /Resend/) { return "yes", "yes"; }   
  if ($incoming =~ /Finished|OK/) { return "no", "no"; }
 }
}