5 while ($line = <STDIN>) {
8 print "End of input in reader\n";
13 This test starts up a thread to read and echo whatever is typed on
14 the keyboard/stdin, line by line, while the main thread counts down
15 to zero. The test stays running until both the main thread has
16 finished counting down and the I/O thread has seen end-of-file on
20 $r = new Thread \&reader;
24 print "ping $count\n";