Select Code to Download

#! /usr/bin/perl -T
use strict;
use warnings;
...
    my $sys_code = $? >> 8;
    logger("child exited with value $sys_code\n");
}