You can also monitor programs in (horror!) other languages by doing smething like this:

my $command = shift;
my $pid = fork();
unless (0 == $pid){
  ...Tk code...
}else{
  exec($command);
}
[download]

You now pass the program name instead of the PID to the script.