use strict;
use warnings;

use IO::Pipe;
my $pipeFH;

my $rcHandler = sub {$pipeFH->close(); exit;};

$SIG{INT} = $rcHandler;
$SIG{QUIT} = $rcHandler;
$SIG{TERM} = $rcHandler;

print qq{Parent PID $$\n};
$pipeFH = IO::Pipe->new();

my $pid;
if ($pid = fork)
{
    $pipeFH->reader();
    print qq{Kid is PID $pid\n};
}
elsif(defined($pid))
{
    $SIG{PIPE} = sub {exit;};
    $pipeFH->writer();
    $pipeFH->print(qq{Kid: Snoozing\n});
    for my $heartbeat ( 1 .. 30 )
    {
        $pipeFH->print(qq{Kid: Heartbeat $heartbeat\n});
        sleep 1;
    }
    
    $pipeFH->print(qq{Kid: Waking\n});
    print qq{Kid: Quitting\n};
    exit;
}

while ((my $returnPid = wait) != -1)
{
    print qq{Kid $returnPid returned\n};
}

while (defined(my $line = $pipeFH->getline()))
{
    print qq{Read: $line};
}