my $cmdin=gensym;
my $cmdout=gensym;
my $cmderr=gensym;
eval{
  $pid = open3($cmdin, $cmdout, $cmderr, $cmd);
  #$val = waitpid(-1,0);
};
die "Exception raised in block using open3: $@\n" if $@;
$selector = IO::Select->new();
$selector->add($cmdout, $cmderr);
#print "After selector->add\n";
while (@ready=$selector->can_read){
    #print "In while loop\n";
    foreach $fh (@ready) {
        #print "In foreach loop; fh is $$fh.\n";
        my $byte;
	my @line;
	while ((sysread($fh, $byte, 1) == 1) && ($byte ne "\n")){push(@line,$byte);};
        #$line = scalar <$fh>;
	#print "line we just read in is $line";
	if (@line){
	  my $line2=join("",@line);
	  #added <strong> here JWC 5/9/06
	  #print "Printing $line to log:\n";
	  #print "printing $$fh output to log\n";
	  if (fileno($fh) == fileno($cmderr)) {print LOG "<em><strong><big>STDERR: $line2</big></strong></em>\n";}
	  else {print LOG "$line2\n";}
	  #print "printed $$fh output to log\n";
	}
	else{
	  #print "the line variable was empty--removing $$fh from selector.\n";
	  $selector->remove($fh);
	  #print "removed $$fh from selector\n";
	}
	#print "at end of foreach loop.\n";
    }
    #print "at end of while loop.\n";
}
close($cmdout)|| warn "Error:  Could not close $$cmdout: $!";
close($cmderr)|| warn "Error:  Could not close $$cmderr: $!";
print LOG "*-*-end_run-*-*\n";
close(LOG);

##</code><code>##

$pid = open3(*CMD_IN, *CMD_OUT, *CMD_ERR, $cmd);
close(CMD_IN);

$SIG{CHLD} = sub {
    print "REAPER: status $? on $pid\n" if waitpid($pid, 0) > 0
};

$selector = IO::Select->new();
$selector->add(*CMD_ERR, *CMD_OUT);

while (@ready = $selector->can_read) {
    foreach $fh (@ready) {
    $line = scalar <$fh>;
    if (fileno($fh) == fileno(CMD_ERR)) {print "STDERR: ", $line}
    else {print "STDOUT: ", $line}
    ($line) || $selector->remove($fh);
    }
}

close(CMD_OUT);
close(CMD_ERR);

##</code><code>##

#!/opt/local/bin/perl

$|++;
print "1:  I am great!\n";
print "2:  I am great!\n";
warn "3:  Warning:  I am great!\n";
print "4:  I am great!\n";