Select Code to Download

#!/usr/bin/perl -w

...
my $cgi = new CGI;                                     
my $session = new CGI::Session("driver:$dbtype", $cgi, {Handle => $dbh
+});
my $cookie = $cgi->cookie(CGISESSID => $session->id);

    $self->{SQLite_dbh} = $args->{Handle} || DBI->connect(
                    $args->{DataSource},
                    $args->{User}       || undef, 
                    $args->{Password}   || undef, 
                    { RaiseError=>1, PrintError=>1, AutoCommit=>1 } );