ldap login (cgi)

print "<result>/n";
 my $user=param('user');
 my $password=param('password'); 
 my $ldapserver="ldap_server";
 my $ldap = Net::LDAP->new($ldapserver);
    my $search_result = $ldap->search(base=>"O=COM",filter=>"(uid=$user)",scope=>"sub");
 my $entry = $search_result->entry(0);
 my $dnString = "";
 if(defined $entry){
  $dnString = $entry->dn();
 }
 if($dnString eq ""){
  print "<code>-1</code>/n";
  print "<error>Can't find user $user</error>/n";   
 }else{
  my $mesg = $ldap->bind($dnString,password=>$password);
  if ($mesg->code){
   print "<code>".$mesg->code."</code>/n";
   print "<error>Login Fail!!</error>/n";
  }else{
      print "<code>0</code>/n";
    print "<error></error>/n";   

  }
      $ldap->unbind; 
 } 
 print "</result>/n";