open (my $st_in, "<&STDIN"); open (my $out, '>&', STDOUT); open (my $err, '>&', STDERR); open (STDOUT, "> /dev/null"); open (STDERR, "> /dev/null"); open (STDIN, "< /dev/null"); my $status = open ($reg_out,"$cmd 2>&1 |") or die "can't fork: $!"; if ($status) #Parent { open (STDOUT, '>&', $out); open (STDERR, '>&', $err); open (STDIN, '<', $st_in); } else { exit; } $Reg_r{$regl_name}{$nn}{'OutP'} =$reg_out; $Reg_r{$regl_name}{$nn}{'PID'} = $status; $Reg_r{$regl_name}{$nn}{'JobId'} = 0; $Reg_r{$regl_name}{$nn}{'IsRun'} = 1; $Reg_r{$regl_name}{$nn}{'WasRuning'} = 0; $book->raise("Sheet 1") if ($re_run_csv); $Sbook->raise("$regl_name $nn"); $mw->fileevent($reg_out, 'readable', [\&fill_text_widget,$regl_name,$nn]);