my $params = {    DataSource      =>      'dbi:mysql:sessions',
                UserName        =>      'root',
                Password        =>      '',
                LockDataSource  =>      'dbi:mysql:sessions',
                LockUserName    =>      'root',
                LockPassword    =>      ''
};
my %session;

eval {
        tie (%session, 'Apache::Session::MySQL', $sess_id, $params);
};
tie (%session, 'Apache::Session::MySQL', undef, $params) if ( $@ );
#etcetera

##</code><code>##

use CGI;
use MySessions;

my $q=new CGI;

MySessions->connect();
my $session=MySessions->retrieve($q->cookie(-name => 'sess_id'));
#etcetera