my ($psyscmd, $fh) = system_command("$bld_cmd 2>&1"); $global_fh = $fh; #### if ($pid) { # Parent print STDERR "\e[101m(1a) Parent about to return\e[m\n"; return $fh; } #### my $unused_fh = monitor_build("./fakebuild"); #### my $psyscmd = system_command("$bld_cmd 2>&1"); # ... if ($pid) { # Parent print STDERR "\e[101m(1a) Parent about to return\e[m\n"; return $psyscmd; }