sub reapChild {
   do {} while waitpid(-1,WNOHANG) > 0;
}

##</code><code>##

use Net::SSH::Expect;
...
$SIG{CHLD} = 'DEFAULT';
...
system(...);