child.pl

来自「source of perl for linux application,」· PL 代码 · 共 5 行

$|++;
print "# Child has TTY? " . (-t STDIN ? "YES" : "NO" ) . $/;
print $_ = <>;