#!/usr/bin/perl
#/var/www/htdocs/index.fcgi
use CGI::Fast qw(:standard);
use CGI;
use CGI::Session;
while ($q = new CGI::Fast) {
	my $session = CGI::Session->new ("driver:file", $q, {Directory => '/tmp'})
		or die "Session Initializing Failed.\n$!";
	$session->expire('60');
	$session->param('s1', 'XXX-S1-XXX');
	$session->param('s2', 'XXX-S2-XXX');
	$session->param('s3', 'XXX-S3-XXX');
	print $session->header (
		-type	 => 'text/html',
		-charset => 'utf-8',
		-title	 => 'test page');
	my $var = $q->param('var');
	print "var = $var.";
	print end_html;
}