Select Code to Download

BEGIN {
    package Net::SSH::Expect;
...
       do {} while waitpid(-1,WNOHANG) > 0;
    }
}

    local $SIG{CHLD} = \&reapChild;