create group error

[Phil H. <phi...@tn...>]

Hello all
 I am having trouble trying to create a groupofuniquenames in ldap using
Net::LDAP.

I can create the group using the command line tools with a modfile like:
  dn: cn=mytest,o=tnb.com
  changetype: add
  objectclass: top
  objectclass: groupofuniquenames
  cn: mtest
  description: mytestgroup




my $result = $ldap->add ( 'cn = mytest, o=tnb.com',
                           attr => [ 'cn'   => 'mytest',
                           'description'    => 'mytestgroup',
                              'objectclass' => ['top',
'groupofuniquenames'],
                            ]
                  );

  $result->code && warn "failed to add entry: ", $result->error ;

 
But trying this code fails with Error msg
 Net::LDAP::Add=HASH(0x335414)
Can't call method "code" without a package or object reference at
./testaddg2 line 137

I can add and delete members from a group if I create it with a modfile
but I want a all Net::LDAP solution.

Any ideas would be great.

Thanks Phil...