Select Code to Download

#In module:
sub acls {
...
while(my ($name, $value) each $mod->acls) {
    print $name;
}

foreach(keys $mod->acls) {
}