########### -- Creating The session--##################

my $session = CGI::Session->new( undef, $cgi, {Directory=>'/tmp'} );
$session->flush();
my $cookie = $cgi->cookie(CGISESSID => $session->id );
print $cgi->header(-cookie=>$cookie);