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