Select Code to Download

my $dbh = $glob{dbh};
my $session = new CGI::Session("driver:MySQL;id:MD5", $sid, { Handle =
+> $dbh, LockHandler => $dbh });
my $user = bless ( { glob => \%glob, session => $session }, $class );
$glob{user} = $user;

my $page = bless ( { glob => \%glob }, $class );