wait-and-get-child-exit-code.pl

#!perl
use strict;
use warnings;

my $pid = fork;

if ($pid) {
    warn 'parent';
    wait();
    warn $? / 256;
}
else {
    warn 'child';
    exit 10;
}