sub authenticate {
        my $self = shift;
        my $pw = shift;
        my $user = shift;

        die "Not enough args to authenticate() $@" if not defined $pw;
        $user = "Manager" if ($user eq "");
        my $result = $self->{"_ldap"}->bind (
                dn        => "cn=$user, dc=sigmatel, dc=com",
                password  => $pw
            );
        return $result;
}