hinderer

use strict;
use warnings;
use Data::Dumper;
use C4::Auth;
use C4::Context;
use C4::Search;
use C4::Output;
use C4::Koha;

my $b = GetBranchesLoop(C4::Context->userenv->{'branch'});
print Dumper($b);