Select Code to Download

# Check to see if we have a session.  If so, load it's information.
# If not, we need to create one and then cookie the user.
...
my $session = new CGI::Session("driver:DB_File", $cgi, {Directory=>'/u
+sr/local/apache/htdocs/addressbook'});
# Init the logger
Log::Log4perl->init("/usr/local/apache/htdocs/addressbook/log4perl.con
+f");