perl -wle'
use DBI qw(:sql_types);
print SQL_INTEGER'
4