Select Code to Download

http://www.mail-archive.com/dbi-dev@perl.org/msg03906.html

http://www.perlmonks.org/?node_id=284436

        my ($sth, $query, $select, $from, $where, $likedate, $join, $s
+elmin, $selmax, $min, $max, @sogs);
...

                print join( ',', @sogs ), "\n";
        }

Can't DBI::st=HASH(0x1aa7a40)->bind_col(1, undef,...), need a referenc
+e to a scalar at /usr/lib/perl5/DBI.pm line 1867, <FILE> line 56.