Select Code to Download

use IPC::Open3 qw( open3 );
use Symbol     qw( gensym );
...
close($fr_chld);
my @logmessages = <$fr_chld_err>;
waitpid($pid, 0);