use OLE;

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

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

$book = $books->Add("MyBook");

$entry = $book->Add("Humphrey Chimpden Earwicker");
$entry->{'Phone'} = "777-4444";

$entry = $book->Add("Anna Livia Plurabelle");
$entry->{'Phone'} = "888-5555";

$entry = $book->Add("Shem the Penman");
$entry->{'Phone'} = "222-3333";

$entry = $book->Add("Shaun the Postman");
$entry->{'Phone'} = "444-5555";


$book->Save();

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