Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $child_exit_status = $? >> 8;

print "child_exit_status: $child_exit_status\n";

[-
use warnings;
...

print OUT "child_exit_status: $child_exit_status\n";
-]