1
2
3
4

use CGI::Session qw(-ip_match);
use CGI::Session::MySQL;
$CGI::Session::MySQL::TABLE_NAME = $tablename;
my $session = CGI::Session->new("dr:MySQL", $cgi, {Handle => $dbh});

1
2

use CGI::Session qw(-ip_match);
my $session = CGI::Session->new("dr:mysql", $cgi, {Handle => $dbh, TableName => $tablename});