Select Code to Download

use CGI qw/:cgi/;
use Data::Dumper;
...

my $cookie = $query->cookie(CGISESSID => $session->id );
print $query->header(-cookie => $cookie);

my $session_id = cookie('CGISESSID');
my $session = new CGI::Session("driver:File", $session_id, {Directory=
+>'/tmp'});
...
   my $user_id    = $session->param('user_id');
   my $user_name = $session->param('user_name');
}

use base 'CGI::Application';
use CGI::Application::Plugin::Session;
...
   $self->session->param(user_id    => $user_id);
   $self->session->param(logged_in  => 1);
}