Select Code to Download

sub ad_search { # To search AD and return a pre-determined value
    my $search_base = $_[0]; # This is the base for our searches 
...
    
    return ($succ_search, @result); # Return our success and our array
+ of results
}

sub ad_get_attrib { # For returning Attribute Values....
    my $dn = $_[0]; # The object DN
...
    
    return $result;
}

sub ad_modify { # To change a single value in AD

...

    $object->SetInfo; # Don't forget to set the values
}