Select Code to Download

use IPC::Open3;
use POSIX ":sys_wait_h";
...
    return $self -> { shift() };
}
1;

use SysCall3;
my $nasty = SysCall3 -> exec( 'bigNastyProgram' );
...
my $code = $nasty -> getinfo( 'EXITCODE' );
# process return code
exit $code; # if wanting to pass control back to the o/s