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(); }