my $cmd = [ "-$x", '-W0', "--stdout=$home/$x.out",
"--stderr=$home/$x.err" ];
my $td = start_script($cmd, $env, { 3 => $s}) or xbail("-$x");
my $cmd = [ "-$x", '-W0', "--stdout=$home/$x.out",
"--stderr=$home/$x.err" ];
my $td = start_script($cmd, $env, { 3 => $s}) or xbail("-$x");