xref: /openbsd-src/gnu/usr.bin/perl/cpan/IPC-Cmd/t/src/child.pl (revision b39c515898423c8d899e35282f4b395f7cad3298)
1*b39c5158Smillert$|++;
2*b39c5158Smillertprint "# Child has TTY? " . (-t STDIN ? "YES" : "NO" ) . $/;
3*b39c5158Smillertprint $_ = <>;
4*b39c5158Smillert
5