The following rearrangement may help,

# ... the loop
close( PARENT );
print "parent received: ";
print '.' while <CHILD>;
print "\n";
close( CHILD );
while( %pid ) { reap() }
[download]

After Compline,
Zaxo