# From the book "Active Directory, Third Edition" 
# ISBN: 0-596-10173-2

use Win32::OLE;

my $objGroup;
# An ADSI group object

$objGroup = Win32::OLE->GetObject('LDAP://cn=Managers,ou=Sales,dc=mycorp,dc=com');

# **********************************************************************
# Get and write the mail property value, which forces an
# implicit GetInfo call
# **********************************************************************
print $objGroup->Get('mail'), "\n";

# **********************************************************************
# Set the new mail address in the cache
# **********************************************************************
$objGroup->Put('mail', 'new-address@mycorp.com');

# **********************************************************************
# Use an explicit GetInfo call to again retrieve all items into the cache
# **********************************************************************
$objGroup->GetInfo();

print $objGroup->mail, "\n";