#!/usr/bin/perl
print "content-type: text/html \n\n";
use CGI;
use CGI::Session qw/-ip-match/;
use File::Spec;
# my $session = new CGI::Session("driver:File", undef, {Directory=>File::Spec->tmpdir});
my $session = new CGI::Session();
my $sessionid = $session->id();
print "";
print " ";
print "";