to make this a little shorter you can add

use DBI qw(:sql_types);
[download]

then instead of { TYPE=>DBI::SQL_INTEGER } you can just type SQL_INTEGER

--BigJoe

Learn patience, you must.
Young PerlMonk, craves Not these things.
Use the source Luke.