perl -MDBI=":sql_types" -le "print 1;"