Select Code to Download

  ($sessid,$tokcookie) = setup_session($userID, $userType);
  my $cookie = $cgi->cookie(-name => 'CGISESSID', -value => $sessid, -
+expires => "+30m");
...
             -location => $base_url,
             -cookie => [$cookie,$tokcookie]
            );

  my ($session,$tok_cookie) = DBUtility::get_session($cgi,$uid);

    $rv = CGI::Session->new('driver:mysql',$query,{ DataSource  => "db
+i:mysql:database=profitorius;host=$hostname",
                                                          User        
+=> 'xxxxxxxxxxx',
...
                             -expires => "+30m",
                             -secure  =>  1);
  return ($rv,$cookie);