my %vars = ( cgi => CGI->new(),
             dbh => DBI->connect([connection params]),
           );