$pid = open3 (\*CHILD_INPUT,\*CHILD_OUTPUT,\*CHILD_ERROR,
       "perl $scriptname $parameters");
close CHILD_INPUT;
$main->fileevent(\*CHILD_OUTPUT,'readable',[\&fill_text_status]);
$main->fileevent(\*CHILD_ERROR,'readable',[\&tackle_err_child]);