#!perl

use strict;
use warnings;
use Win32::OLE;

my $outlook = Win32::OLE->new('Outlook.Application');
  die unless $outlook;
my $namespace = $outlook->GetNamespace("MAPI");

for my $k (sort(keys(%{$namespace->AddressLists->Item("Global Address List")->AddressEntries("Lastname,Firstname")}))) {
    printf "$k = %s\n", $namespace->AddressLists->Item("Global Address List")->AddressEntries("Lastname,Firstname")->$k;
}