or download this
use DBI;
use CGI;
...
my $request = new CGI;
my $dbh = DBI->connect("DBI:mysql:orientation", "user","pass", { Raise
+Error => 1});
my $session = new CGI::Session("driver:MySQL", $request, {Handle => $d
+bh, DataSource => "DBI:mysql:orientation", User => "user", Password =
+> "pass"});