Select Code to Download

#SERVER:
...
      print "$0: Normal timeout of select...\n";
    }
}

#CLIENT:
...

close $SOCK;