test close handler

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

diff --git a/t/bin/echo.pl b/t/bin/echo.pl
new file mode 100755 (executable)
index 0000000..8d5b5c8
--- /dev/null
+++ b/t/bin/echo.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl
+
+$|++;
+
+while (<STDIN>) {
+  exit 0 if $_ eq "DIE\n";
+  print;
+}