use OLE;

$application = CreateObject OLE 'AddressBook.Application' || die $!;

$books = $application->{'AddressBooks'};

print "Reading Address Book MyBook:\n";
$book = $books->Open("MyBook");

print "Using Item():\n";
$entry = $book->Item("Humphrey Chimpden Earwicker");
print "$entry->{'Name'}\t$entry->{'Phone'}\n";
$entry = $book->Item("Anna Livia Plurabelle");
print "$entry->{'Name'}\t$entry->{'Phone'}\n";

print "\nUsing Enum:\n";
$enum = $book->{'Enum'};
while($enum->HasMoreElements())
{
    $entry = $enum->NextElement();
    $name = $entry->{'Name'};
    $phone = $entry->{'Phone'};
    print "$name\t$phone\n";
}
