#!/usr/bin/perl -w
use strict;
use CGI;
use lib '~/cgi-bin/lib/CGI/';
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;
my $cgi = new CGI;
my $session = new CGI::Session(undef, $cgi, {Directory=>'/tmp'});