#!c:\Perl\bin\perl.exe -w


use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;
use CGI::Cookie;
use Data::Dumper;
use CGI::Session;
my $cgi = new CGI; 
print $cgi->header;
my $sid;  ##session id 
my $session_dir = "C:\\raman";  ## place where CGI Session files are stored 




#here i am just trying to test whether i am able to fetch the cookie 
#getting success i can do some more things 
%cookies = fetch CGI::Cookie;
$id = $cookies{'sessionID'}->value;
print $id ;

my $session = new CGI::Session("driver:File", $cgi, {Directory=>$session_dir})
                   or die $CGI::Session::errstr;
$sid=$session->id();
$cookie = new CGI::Cookie(-name => 'sessionID',
                          -value => $sid,
                          -expires => '+3h'
                          );
print $cgi->header( -cookie=>$cookie);

$session->save_param($cgi, ["username", "password"]); 
$x= $session->save_param($cgi);