for my $cmd (@cmds) {
   system($cmd)
   die("<$cmd>: Can't spawn: $!\n")                   if $? == -1;
   die("<$cmd> died from signal ", ($? & 0x7F), "\n") if $? & 0x7F;
   die("<$cmd> exited with code ", ($? >> 8), "\n")   if $? >> 8;
}