sub setup{
   my $self = shift;
   my $q = $self->query() #cgi object

#code

   my $session = new CGI::Session(undef, $q, {Directory=>"sessions"});
	$session->expire('+5m');
	my $session_id = $session->id();	
	$self->param('session' => $session);
}