#!/usr/local/bin/perl
use CGI;
use DBI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;
use strict;
my $cgi = CGI->new;
my $username = $cgi->param("username") || "VASETO111";
my $password = $cgi->param("pass") || "VASETO111";
my $userID = "";

my $session = new CGI::Session();
my $cookie = $cgi->cookie(CGISESSID => $session->id);
$session->param("user_id", $userID);
$session->param("username", $username);
my $usernew = $session->param("user_id");

print $cgi->header(-cookie=>$cookie);
print $session->id();

1;