Converter código que cria usuário no LDAP, de perl para Java

my $e = Net::LDAP::Entry->new;

        $e->dn ("cn=" . $username . ", ou=empresa.br, dc=empresa, dc=br");

	$e->add ('objectClass' => 'inetOrgPerson');
	$e->add ('objectClass' => 'qmailEmpresa');
	$e->add ('objectClass' => 'qmailUser');

matchAttrs.put(new BasicAttribute("objectClass","inetOrgPerson"));   
			
		
		matchAttrs.put(new BasicAttribute("objectClass", "qmailEmpresa"));     
		matchAttrs.put(new BasicAttribute("objectClass", "qmailUser"));
		InitialDirContext iniDirContext = (InitialDirContext)dirContext;
		iniDirContext.bind(usuario,dirContext,matchAttrs);