use CGI::Session;
use CGI;

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


$session->param('f_name', 'Sherzod');


print '<a href="session2.pl">Page 2</a>'; 


##</code><code>##

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;