Select Code to Download

#!/usr/bin/perl
# server
...
         print "thread ", threads->tid(), " received line: $line\n";
     }
 } ## end sub handleClient

#!/usr/bin/perl
# client
...

     sleep 1;
 } ## end while (1)