$ perl ./q.pl
SQL::Statement's version: 1.15
DBD::CSV's version: 0.22
Use of uninitialized value in print at ./q.pl line 32.

Tanktalus