Stress test to verify the two tasks don't mess each other up

EDISOFT/contrib/cmds

+tar extended-remote localhost:1234
+load fputest
+c

EDISOFT/contrib/stress.pl

+#!/usr/bin/perl -w
+use strict;
+
+sub killtree {
+    my $pid = shift;
+    my @children;
+    open CHL, "ps -o pid= --ppid $pid|";
+    while(<CHL>) {
+        chomp;
+        push @children, $_;
+    }
+    close CHL;
+    foreach my $child (@children) {
+        killtree($child);
+    }
+    kill(15, $pid);
+}
+
+while(1) {
+    my $a = 0;
+    my $childpid = open PIPE, "sparc-rtems4.8-gdb < cmds 2>&1 |";
+    while(<PIPE>) {
+        print;
+        if (/172003605/) {
+            $a++;
+            if ($a == 2) {
+                last;
+            }
+        }
+        if (/172003608/) {
+            $a++;
+            if ($a == 2) {
+                last;
+            }
+        }
+    }
+    killtree($childpid);
+    close PIPE;
+}
+