Select Code to Download

if ($pid = fork) { # parent
   ...
...
   ...
   exit;
}

pipe(PIPE_READ,PIPE_WRITE);
autoflush PIPE_WRITE 1;
...
        print "received from pipe $msg_read";
    }
}