Perl,如何为我的exec’d孩子创建一个管道？

我创建了2个IO :: Handles并创建了一个管道.我写到管道的一端,并尝试将管道另一端的文件描述符传递给正在执行的子程序.我通过设置ENV变量来传递文件描述符.为什么这不起作用？ (它没有打印出“你好世界”).据我所知,文件描述符和管道在执行时由子进程继承.

Perl脚本：

#!/opt/local/bin/perl
use IO::Pipe;
use IO::Handle;

my $reader = IO::Handle->new();
my $writer = IO::Handle->new();
$reader->autoflush(1);
$writer->autoflush(1);
my $pipe = IO::Pipe->new($reader,$writer);
print $writer "hello world";
my $fh = $reader->fileno;
$ENV{'MY_FD'} = $fh;
exec('./child') or print "error opening appn";
# No more code after this since exec replaces the current process

C程序,app.c(用gcc app.c -o child编译)：

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

int main(int argc,char ** argv) {
  int fd = atoi(getenv("MY_FD"));
  char buf[12];
  read(fd,buf,11);
  buf[11] = '';
  printf("fd: %dn",fd);
  printf("message: %sn",buf);
}

输出：

fd: 3
message:

消息永远不会通过管道传递给C程序.有什么建议？