test close handler

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

#!/usr/bin/env perl

$|++;

while (<STDIN>) {
  exit 0 if $_ eq "DIE\n";
  print;
}