getting Net::LDAP search results

[<CZa...@wi...>]

Hello how do I obtain this info "CN=John Doe,OU=IT,OU=NewYork,O=XYZ" using
the example below ?
I would figure that $mesg would return this information back from the
search.

Please help.

Thank you.



$ldap->bind ;

$mesg = $ldap->search(
        base => 'o=wiley',
        scope=> 'subtree',
        filter=> "(&(objectclass = interorgperson) (mail = $username))"
);

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


      foreach $entry ($mesg->all_entries) { $result = $entry->dn; print
"$result\n"; }

      $ldap->unbind;