Select Code to Download

sub DieWithCode {
 my $numerical_exit_code = shift;
 my $msg = shfit;
...
    
 exit ($numerical_exit_code);
}

sub DieWithCode {
 my $numerical_exit_code = shift;
 my $msg = shfit;
...
 print $msg;
 exit ($EXITCODE);
}

my $e;
{
...
}
printf "AppAction failed ($e)\n" if $e;
$EXITCODE = 0;