#!/usr/bin/perl

use strict;
use warnings;
use POSIX qw/ WIFEXITED /;

WIFEXITED( (system '/bin/true') >> 8 ) or die "true $!";

WIFEXITED( (system '/bin/false') >> 8 ) or die "false: $!";