$rc = system("perl $rpla & perl $rplb & ");
ok($rc,  'double rpl dies with rc=' . $rc);

##</code><code>##

perl prog-rpla.pl & perl prog-rplb.pl &

##</code><code>##

 system("foo & bar&")