← Back to branch summary

~ubuntu-branches/ubuntu/lucid/libproc-reliable-perl/lucid 

1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl
use FileHandle;
\*STDOUT->autoflush();
print("ready:\n");
$i = 0;
while($line = <STDIN>) {
    print("got $i: '$line'\n");
    $i++;
    #if($i > 3) {  # intentionally cause sigpipe
	#last;
    #}
}