#!/usr/bin/perl
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use Cwd;
use LWP::Simple;

use CGI;
use CGI::Session;

my $cgi = new CGI;
my $sid =  $cgi->param('CGISESSID') || undef;
my $session = new CGI::Session("driver:File", $cgi, {Directory=>'/tmp'});