Select Code to Download

while (<$client>) {        # fetch based on newlines
   ...
   @segments = split /\015/, $message;