Select Code to Download

sub connect
{
...

  return (DBI->connect ($dsn, $user_name, $password, \%conn_attrs ));
}

use Cookbook_grave; # the connection as above
use CGI;
...

print LOG_FILE "search term 1: $search_term1\n";
print LOG_FILE "rows found: $nrows\n\n";