while ( my $bl = $$q->dequeue_nb()){ 

##</code><code>##

sub slurp_directory_as_bin{
...