#!/usr/local/bin/perl
pipe (INPUT, OUTPUT);
$retval = fork();
if ($retval != 0) {
# this is the parent process
close (INPUT);
print ("Enter a line of input:\n");
$line = ;
print OUTPUT ($line);
} else {
# this is the child process
close (OUTPUT);
$line = ;
print ($line);
exit (0);
}