#!"\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);