my $rv = system($cmd);
if ($rv == -1) {
    die("Can't execute command: $!\n");
} elsif ($rv & 127) {
    die("Command died from signal ", ($rv & 127), "\n");
} elsif ($rv >> 8) {
    die("Command exited with error ", ($rv >> 8), "\n");
}