pipe(fd1,fd2);
#make kiddies (not that! is that all you think about? {slap})
close(fd1); #in kiddie
#back to sexless parent
close(fd2);
write(fd1,$data,x);
#the kid just got some info on the pipe! x bytes!