#!/usr/bin/perl -w

use strict;

my $raw_ret;

print "'true':\n";
`true`;
$raw_ret = $?;

printf("0x%08X\n", $raw_ret);
print $raw_ret; print "\n";
print $raw_ret >> 8; print "\n";
print (($raw_ret >> 8) & 0xFF); print "\n";
print "\n";

print "'false':\n";
`false`;
$raw_ret = $?;

printf("0x%08X\n", $raw_ret);
print $raw_ret; print "\n";
print $raw_ret >> 8; print "\n";
print (($raw_ret >> 8) & 0xFF); print "\n";
print "\n";

print "'nosuchprogramname':\n";
`nosuchprogramname`;
$raw_ret = $?;

printf("0x%08X\n", $raw_ret);
print $raw_ret; print "\n";
print $raw_ret >> 8; print "\n";
print (($raw_ret >> 8) & 0xFF); print "\n";
print "\n";