use strict;
#use English;
use Cwd qw(getcwd);
use CGI qw/:standard/;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
#-- ppm install CGI::Session
use CGI::Session;

our $session;
our $query = new CGI();
our $perl_sessions = "C:/webtmp";
if (!(defined($query->cookie("wweb")))) {
        $session = new CGI::Session("driver:File", undef, {Directory=>$perl_sessions})
            or die "Couldn't create CGI session: " . CGI::Session->errstr;
        $cookie = $q->cookie(-name   => "wweb",
                             -value  => $session->id);
    }
exit(0);