$|=1;
for (qw(sh csh bash tcsh ksh dash ash pdksh mksh zsh fish)) {
  print "shell: $_\n";
  system $_ => '-c', 'echo good';
}