Select Code to Download

sub new {
        my $self = {};
        $self->{_ldap} =  Net::LDAP->new($LDAP_SERVER);
        bless $self;
        return $self;
}

sub alias_add_entry {
        my $self = shift;
        my $alias = shift;
...
                );
        return $result;
}

sub authenticate {
        my $self = shift;
        my $pw = shift;
...
            );
        return $result;
}