#! /usr/local/bin/perl -w
use strict ;

#Adress Book Program


print "Address Book Program v .03\n\n" ;

open (ADDRESS, '>> addbook.txt') or die "Can't open file; $!" ;

my ($cat, $fname, $lname, $cname, $addr1, $addr2, $field, $value) ;

my $quit = 0 ; 

while ($quit != 1) {

    print "Is this a Personal or Business contact? (Enter P or B)" ;
    my $perbus = <STDIN> ; 
    chomp $perbus ;

    if ($perbus eq 'b'){
	$cat = "Business" ;
    } else {
	$cat = "Personal" ;
    }

    print "Enter a first name:  " ;
    $fname = <STDIN> ;
    chomp $fname ;

    print "Enter a last name:  " ;
    $lname = <STDIN> ;
    chomp $lname ;
    
    print "Enter address information:  " ;
    $addr1 = <STDIN> ;
    chomp $addr1 ;

    print "Enter address information:  " ;
    $addr2 = <STDIN> ;
    chomp $addr2 ;

    print "Do you want to enter another address? (Y or N)  " ;
    my $ans = <STDIN> ;
    chomp $ans ;

#checks for Y or y

    if ($ans !~ m/[Yy]/) {
	$quit = 1 ;
    } else {
	$quit = 0 ;
    }
	
}

my @lines = (
	     [ "NAME", "$lname, $fname" ],
	     [ "ADDRESS", $addr1        ],
	     [ "ADRESSS", $addr2        ],

for (@lines) {
		($field, $value) = @$_ ;
		write ADDRESS ;
}
close ADDRESS or die "Can't close file; $!" ;

format ADDRESS_TOP =
AddressBook version 0.03
___________________     ______________________________________________________
.

format ADDRESS =
@<<<<<<<<<<<<<<<<<<     @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$field,			$value
.