my $select = IO::Select->new();
my $alive = 1;
my $pid;
+my $interactive = -t STDOUT;
my $code;
sub sigchld
foreach my $h ( $select->can_read() ) {
sysread $h, $_, 1024;
print $fout $_ if $fout;
- if ( $h == \*child_err ) {
+ if ( $h == \*child_err && $interactive ) {
print "\033[31m$_\033[0m";
} else {
print $_;