vetlblya, ты хоть копипасти качественно - мусор сплошной!
Повторил твой тест (за исключением явных ошибок) - все путем. Т.ч. потрудись объяснить по-человечески, что хочешь сделать, как и в каких условиях делаешь и что получается.
#!/usr/bin/perl -W
use DBI;
use CGI::Session;
use strict;
my $sid = undef;
my $dbh = DBI->connect('dbi:mysql:database=test;host=localhost', 'root', '');
my $session = CGI::Session->new('driver:mysql', $sid, { 'Handle' => $dbh });
print $session->id(), "\n";
$ ./session_test.pl
d7eb8345b870afe77f1ed9ad22e9736a
mysql> select * from sessions\G
*************************** 1. row ***************************
id: d7eb8345b870afe77f1ed9ad22e9736a
a_session: $D = {'_SESSION_ID' => 'd7eb8345b870afe77f1ed9ad22e9736a','_SESSION_ATIME' => 1275393759,'_SESSION_REMOTE_ADDR' => '','_SESSION_CTIME' => 1275393759};;$D