#!/usr/bin/perl
use warnings;
use strict;
use Proc::ProcessTable;

my $time = time();

 my $pid;
 my $pid1 = open(PH,"| xterm -T $time -e bash");

 print "pidinit $pid1\n";

 sleep 1;

 for my $p (@{new Proc::ProcessTable->table}){
         if($p->ppid == $pid1){
                $pid = $p->pid;
           }
 }

 print "$pid\n";
      
open(FH,">/proc/$pid/fd/1") or warn $!;
  for(1..1000){print STDOUT $_,"\n"; print FH $_.'a',"\n";sleep 1;}
close FH;
[download]

I'm sure it can be done, but there are problems, like the difference in pid between the xterm and the bash shell it uses....once you get the right pid, you can write to the file descriptors, as long as you own them.

It would be easier for me to do it in a Tk or GTk2 gui, so I have control over the exact filehandles.

A cheap way out would be to use xmessage and let each fork write an xmessage, with it's own title.