#!/usr/bin/perl -W

use strict;
use warnings;
use POSIX;
use CGI;

require SDBM_File;

my %dbm;
my $test = "test.dbm";

tie (%dbm, 'SDBM_File', $test, O_CREAT|O_RDWR, 0644)
   || die "Died tying database\nReason: $!\n";
   
print "Aaron's Phonebook System\n\n\n";

print "What is their name?\n";
my $name = $_;
#if ($name ne "") {
chomp($name = <STDIN>);
$dbm{$name} = "";

print "Added to the list!\n";