#include <stdio.h> 

int main(void){
FILE *fp;
char *line;

if (mkfifo ("my-pipe", 0755) != 0)
{printf ("Could not make this fifo or it exists\n");}
else {printf ("FIFO was successfully made!\n");}

fp = fopen ("my-pipe", "r");

while (fgets (line,256, fp)){
printf ("message: %s", line);
}
close (fp);
}

##</code><code>##

#!/usr/bin/perl

&send_data;

sub send_data{
$|=1;
open(FIFO, "> my-pipe") or die $!;
print "What's your age?\n";
$input = <STDIN>;
chomp $input;
print FIFO "$input\n";
close(FIFO);
}