Perl søgning i LDAP

Nedenstående printer hvormange personer der hedder John til fornavn i dit directory
'
#!/usr/bin/perl

use Net::LDAP

my $ldapServer = <din ldapserver>;

&job;

sub dumpLdap{
        $filter = $_[0];
        # Makes a complete dump of person accounts in LDAP
        $ldap = Net::LDAP->new($ldapServer,onerror=> 'warn') or die "$@";           
        #better than "warn" make a sub that handles errors
        $mesg = $ldap->bind ( 'cn=*****', password => '*****');
        if ($mesg->code eq 0) {
                $mesg = $ldap->search ( base  => "*****",
                                        filter => "$filter");
                return $mesg;
        }
        else {
                $value = $mesg->code;
                print "$value\n";                      #print to errorlog
                #This is serious. Exit program with an error";
                exit(1);
        }
}

sub job {
        $filter = "(&(objectclass=person))";
        $mesg = dumpLdap($filter);
        my $max = $mesg->count;
        my $a = 0;
        for($i = 0 ; $i < $max ; $i++) {
                my $entry = $mesg->entry($i);
                if ($entry->get_value("givenname") eq John) {
                        $a = $a + 1;
                }
                print $a\n;
        }
}