#!/usr/bin/perl

pipe(READER, WRITE);
$pid =fork();
if ($pid)
{
        print "\nIn parent";
        $val1 = 100;
        while($num = <READER>)
        {
                print "\nin while";
                print $num;
        }
        close(READER);
}
else
{
        print "\nIn child";
        $val2 = 150;
        print WRITE $val2;
        close(WRITE);
        print "\nChild closed write";
}


do
{
       $forkvar = waitpid (-1, WNOHANG);
}      while ($forkvar < 0);