Select Code to Download

my $rows = $dbh->selectall_arrayref($sql_stmnt, undef, $script, $param
+eter);
return join(', ', map { $_->[0] } @$rows);

my $meta_keywords = $dbh->selectcol_arrayref($sql_stmnt, undef, $scrip
+t, $parameter);
return join(', ', @$meta_keywords);