pipe(STDIN, STDOUT);
#Optional:
$|--, print STDOUT "This is not a pipe\n" ne <STDIN>;