#!/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 = <STDIN>;
        print OUTPUT ($line);
} else {
        # this is the child process
        close (OUTPUT);
        $line = <INPUT>;
        print ($line);
        exit (0);
}
