#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper;
use CGI::Session;

    
my $session = new CGI::Session(
    'driver:sqlite;serializer:Storable',
    "91b85831787f534e3f9b6448da10af18",
    {DataSource => 'db/sessions.db'}
) or die (CGI::Session->errstr);