sub setup {
	my $self = shift;
   	my $q = $self->query();
   	$self->start_mode('mode1');
	$self->run_modes(
		'mode1'			=> 'mode1',
		'mode2'			=> 'mode2',
		'mode3'			=> 'mode3');	
	
	$self->tmpl_path('template/');	
     
	my $session = new CGI::Session(undef, $q, {Directory=>"sessions"});
	$session->expire('+5m');
	my $session_id = $session->id();	
	$self->param('session' => $session);
}