perl-5.16.2/cpan/IPC-Cmd/t/src/child.pl

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