Failing to get result

[Asif Iqbal]

Can you tell why $mesg->code && die $mesg->error;  is giving the following
error?

No such object at ./mutt-ldap.pl line 11, <DATA> line 225


#! /usr/bin/perl

use Net::LDAP;

$ldap = Net::LDAP->new('localhost:9389') or die "$@";

$mesg = $ldap->bind ;

$mesg = $ldap->search(base => "ou=uswest.com", filter => "(uid=iqbala)");

$mesg->code && die $mesg->error;

foreach $entry ($mesg->entries) { $entry->dump; }

$mesg = $ldap->unbind;

--
Asif Iqbal
PGP Key: 0xE62693C5 KeyServer: pgp.mit.edu