#!/usr/bin/perl -w
use strict;
use diagnostics;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
print header(), start_html("Address Book for \u$ENV{USER}"), h1("Use Address Book");