Can someone explain why this doesn't work?

[Hutchins, Mike]

I have no idea why this little chunk of code doesn't work. Any help
would be much appreciated.

use Net::LDAP;
use Net::LDAP::LDIF;

$ldap=Net::LDAP->new("cdenldap1", port => 389,
                                                version => 3 )
or die $!;

$result = $ldap->bind(
                "cn=admin",
                password => "password");
die $result->error() if $result->code();

$msg = $ldap->search( 
                base    => "o=amr",
                scope   => "subtree",
                filter  => "(&(objectClass=person)(isSupervisor=Y))",
                attrs   => [ "cn", "uid" ]);
                
if ( $msg->count() > 0 ) {
        print $msg->count(), "entries returned.\n";
                
        $ldif + Net::LDAP::LDIF->new("\\supes.ldif", "w")
                or die $!;
        $ldif->write_entry($msg->all_entries());
        }

$ldap->unbind