Help for this page
use IO::Handle; # for gensym my $handle = gensym; tie *$handle, 'call_waitpid', $rdrfh, $pid; return $handle;