# save STDOUT
    open(my $STDOUT_ORIG, ">&", \*STDOUT) or die;

    # connect TO_CHILD_PROC with CHILD_PROC
    pipe(CHILD_PROC, TO_CHILD_PROC);

    # change STDOUT to TO_CHILD_PROC
    # --> STDOUT of child process is set to TO_CHILD_PROC and
    #     this is connected via pipe with CHILD_PROC
    open(STDOUT, ">&", \*TO_CHILD_PROC);


##</code><code>##

# in thread
my $wh = $pipe->writer;
$wh->autoflush(1);
print $wh  "whatever \n"  ;