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