unless (0 == system $cmd) {
   warn sprintf "External command '%s' failed with exit status %d (signal %d).  A core dump %s\n",
   $cmd, $? >> 8, $? & 127, $? & 128 ? "occurred" : "did not occur";
}