Select Code to Download

use strict; use warnings; use feature 'say';
use Data::Dumper; ++$Data::Dumper::Sortkeys;
...
    }
}

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