Unfortunately I cannot run your script to debug it as I do not have all the required modules installed. Also I cannot profess to have a great deal of knowledge in this area. However IMHO I cannot see how this sub actually adds anything.

sub AddGroupToDir{
    my ($group,$dir)=@_;}
[download]

I wish I knew enough to suggest a fix

<A HREF="/index.pl?lastnode_id=1072&node_id=24885">Ay_Bee</A>
-_-_-_-_-_-_-_-_-_-_-_-
My memory concerns me
- but I forget why !!!
[download]