##
system($cmd);
if ($? == -1) {
die("Can't execute command: $!\n");
} elsif ($? & 127) {
die("Command died from signal ", ($? & 127), "\n");
} elsif ($? >> 8) {
die("Command exited with error ", ($? >> 8), "\n");
}
##
##
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");
}