use DBI qw(:sql_types);
use Data::Dumper;
#use strict;
use warnings;
foreach (sort @{$DBI::EXPORT_TAGS{sql_types}}) {
printf "%s=%d\n", $_, &{"DBI::$_"};
}
####
SQL_BIT=-7
##
##
use DBI qw(:sql_types);
use Data::Dumper;
use strict;
use warnings;
my $dsn = "DBI:mysql:database=test;host=foo";
my $dbh = DBI->connect($dsn, 'root', 'root', {RaiseError => 1});
my $insert = "insert into test(a) value(?)";
my $select = "select * from test";
my $insert_st = $dbh->prepare($insert);
my $select_st = $dbh->prepare($select);
$insert_st->bind_param(1, 3, SQL_BIT);
$insert_st->execute() or die $dbh->errstr;
$select_st->execute();
my $ref = $select_st->fetchall_arrayref();
print Dumper($ref);