Select Code to Download

sub _loop {
   $_is_client = 0;
...
   ...
}

use strict; use warnings; use feature 'say';
use Data::Dumper; ++$Data::Dumper::Sortkeys;
...
say "Parent is ready to dump";
say 'Dumping: ' . Dumper $hash->export;