sub cgiapp_init {
 # application object
 my $self = shift;

 # init session
 $self->init_session("sid");	
}


sub init_session {
 # application object
 my $self = shift;
 my $name  = shift;
	
 # change name from CGISESSID to shorter sid
 CGI::Session->name($name);
	
 # init session object	using CGI::Application::Plugin::Session
 my $session = $self->session;
	
 # send session to header
 $session->header();	
}