echo.pl

来自「SconeServer is a modular, object-orienta」· PL 代码 · 共 11 行

#!/usr/bin/perl -w

use IO::Handle;
STDOUT->autoflush(1);

print "HELLO\n";
while (<STDIN>) {
  print "TEST: $_";
}
print "GOODBYE\n";