sub parseGroupDescription
{	my $groupObj=shift;   # my problem $groupObj is always undef / $groupObj is Net::LDAP:Entry
	my $groupName=get_attribute($groupObj,"erldapservicegroup");
	my $groupDesc=get_attribute($groupObj,"description");

	my  $response;
	$response->{"name"}=$groupName;
	
	return $response;
}	# sub parseGroupDescription

##</code><code>##

my $data=$zbdbObj->fetchData($ldapConn,$serviceFilter,$groupFilter,sub {parseGroupDescription});

##</code><code>##

sub fetchData
{	my $selfObj=shift;
	my $ldapConn=shift;
	my $serviceFilter=shift;
	my $groupFilter=shift;
	my $parseFunction=shift;
	
	...
															
	foreach my $group ($allGroups->entries) {
		print get_attribute($group,"erldapservicegroup")." ";
		my $response=&$parseFunction->($group);	# $group is a Net::LDAP:Entry object and $parseFunction a reference on the function of the main script
		my $groupName=$response->{"name"};
		$serviceDataObj->{"groups"}->{$groupName}=$groupName;
	}	# foreach my $group ($allGroups->entries)
}	# sub fetchData