Select Code to Download

my @searches = get_searches(); # e.g., qw(melville herman)
my $search_param = join ' ', map { "+$_" } @searches;
$ding->execute($search_param) or die DBI->errstr();