pipe(READHANDLE, WRITEHANDLE);
my $result = fork();
if ($result>0) {
    # child process, we write to the pipe
} else {
    # parent process, or error - might want to check before
    # we try to read from pipe :))
}