Help for this page
print while <$fromKid>;
print $toKid while <STDIN>;
#! perl -sw use strict; ... print $toKid while <STDIN>; kill 9, $pid