Select Code to Download

use strict;
use warnings;
...
                                  b=>2 }        );
        return bless \%obj;
}

use strict;
use warnings;
...
        my $self = shift;
        return \%{$self->{acls}};
}