[scpubgit/TenDotTcl.git] / t / bin / echo.pl

#!/usr/bin/env perl

$|++;

while (<STDIN>) {
  exit 0 if $_ eq "DIE\n";
  print;
}
Commit	Line	Data
c96546b1	1	#!/usr/bin/env perl
	2
	3	$\|++;
	4
	5	while (<STDIN>) {
	6	exit 0 if $_ eq "DIE\n";
	7	print;
	8	}