+
+perl <"$rcpts" -wne '
+ use strict;
+ our @children;
+ our @passon;
+ BEGIN { @passon = @ARGV; @ARGV = (); }
+ s/^\s+//;
+ s/\s+$//;
+ next if m/^\#/;
+ next unless m/\S/;
+ die unless m/^([a-z]\w+)\s/;
+ my $method = $1;
+ my $child = fork;
+ defined $child or die $!;
+ if (!$child) {
+ exec "./onemethod", $method, @passon;
+ die $!;
+ }
+ push @children, $child;
+ END {
+ foreach my $child (@children) {
+ $!=$?=0;
+ my $got = waitpid $child, 0;
+ die $! unless $got==$child;
+ warn "$method [$child] $?" if $?;
+ }
+ }
+' "$rcpts" "$msg"
+
+echo