#!/usr/local/bin/perl
#
#
#address book
#the only mandatory field is Name
#Phone may contain one or more phone numbers
#Email may contain one or more email address
#Web may contain one or more web pages

@ab  = (

{
    Name     => 'John Smith',
    Notes    => 'wife Joanna, likes baseball',
    Email    => 'john.smith@example.com',
    Address  => '627 Example Street, Random City, CA 90000',
    Directions  => 'it is the little house behind the big house, come around the back but watch out for the Doberman.   call by phone first just to be on the safe side.',
    Phone    => '+1-858-555-0000',
    IM       => 'funnybones@skype',
    Web      => 'http://www.example.com/',
},



{
    Name     => 'Bob Jacobson',
    Phone    => '+1-000-000-0000',
    Email    => 'bob@jacobson.example.com',
    Address  => '111 Rocking Horse, Toy City, CA 90139',
},


# here is a blank record you can populate
{
    Name     => '',
    Notes    => '',
    Phone    => '',
    Email    => '',
    Address  => '',
    IM       => '',
    Web      => '',
},



);

1;