use strict;
use CGI::Session;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI;


my $cgi = new CGI;   
my $sid = $cgi->cookie("CGISESSID") || undef;

my $session = new CGI::Session("driver:File", $sid, {Directory=>'/tmp'});    
my $cookie = $cgi->cookie(CGISESSID => $session->id );
print $cgi->header(-cookie=>$cookie);


my $name = $session->param("l_name");

print $name;