...
my @output = `@command`;
print $? >> 8, "\n";