<snip>

  $dbqpinfo = $dbh->prepare(q{SELECT ? FROM pinfo WHERE name = ?})
    or die "Unable to prepare 'dbqpinfo': " . $dbh->errstr . "\n";

<snip>

  if ($type eq "password") {
    my $name = $login{$client}{'name'};
    $dbqpinfo->execute('passwd', "$name")
      or die "Unable to execute dbqpinfo: " . $dbh->errstr . "\n";
    my $password = $dbqpinfo->fetchrow_array();
    if (crypt("$input", 'llama') eq $password) {
      $user{$client} = $name;
      $client{$name} = $client;
      delete $login{$client};
    } else {
      $outbuffer{$client} .= "Incorrect password for $name! (disco user)";
    }
  }

<snip>