#!"\TBD\xampp\perl\bin\perl.exe" use CGI::Carp qw(fatalsToBrowser); use strict; use warnings; use CGI; use CGI::Session; my $cgi = new CGI; # Object initialization: my $session = new CGI::Session("driver:File", undef, {Directory=>'d:/TBD'}); # getting the effective session id: my $sessionid = $session->id(); #print "$sessionid \n"; my $cookie = $cgi->cookie(CGISESSID => $session->id); print $cgi->header( -cookie=>$cookie ); # storing data in the session $session->param('my_name', 'Sherzod'); #printf ("click me", 'CGISESSID', $session->id); print<

OUTPUT exit (0); ##

##

#!"\TBD\xampp\perl\bin\perl.exe"
use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;

use CGI;
use CGI::Session;
my $cgi = new CGI;

# Object initialization:
print "Content-type: text/plain; charset=iso-8859-1\n\n";
	my $sid = $cgi->cookie('CGISESSID') || $cgi->param('CGISESSID') || undef;
    my $session = new CGI::Session(undef, $sid, {Directory=>'d:/TBD'});

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


exit (0);