Listing 1. Table Creation (not complete)

($dbh->do( "CREATE TABLE phonebook (
phonekey  int4,
lname          text,
fname          text,
title          text,
dept           text,
extension      int,
email          text,
pager          text,
homephone      text,
cellphone      text,
outflag        bool,
outcomments    text
)" ) )
and print "ok creation of phonebook\n"
or  print "phonebook is already here\n"; #die $DBI::errstr;