use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';
my $Outlook = Win32::OLE->GetActiveObject('Outlook.Application') or die "GetActiveObject failed\n";

my $namespace = $Outlook->GetNamespace("MAPI");
my $GAL = $namespace->AddressLists("Global Address List")->{AddressEntries};

my $Filter = $GAL->Filter();

my $list_name = "addr_ent";  # set it to real name
$Filter->{Name} = $list_name;
my $Folder = $namespace->GetDefaultFolder(olFolderContacts); 

my $DL = $GAL->GetFirst(); # Depends on match above
my $Members = $DL->{Members};

for ( my $Member = $Members->GetFirst();$Member != undef; $Member = $Members->GetNext() )
{
    my $fname = $Member->{FullName};  
    my $email = $Member->{Email1Address};  
    print "$fname $email\n";  
}