use IO::Pipe;

$pipe = new IO::Pipe;

if($pid = fork()) {

    $pipe->writer();

    while(<STDIN>)
    {
        print $pipe $_;
    }
}
else
{

    $pipe->reader();

    while(<$pipe>)
    {
        $line = $_;

        print "CHILD: $line";
    }
}