Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
$lines=0;
...
else {
  print "didn't timeout with $lines lines\n";
}

Select or download this

$ ( sleep 10 ) | perl 409100.pl 
timed out with 0 lines
...

$ ( echo one; echo two; echo three; sleep 10 ) | perl 409100.pl 
didn't timeout with 3 lines