my $result = qx($command);

if ( $? >> 8 != 0 ) {
    if ($@) {
        die $@;
    }
    else {
        die qq(Something really weird happened!);
    }
}