added samba_du script

You can iterate through hash using something like:
```perl
for my $key (keys %hash) {
    print "key: ", $key, "  value: ", $hash{$key};
}
```
Or you can use some perl-like magic :dromedary_camel:
```perl
my $h = $memberStruc->{$login}->{$STRUC_GROUPS};
print join ',', map { $_ . ":" . $h->{$_} } keys %$h, "\n";
```