use DBI qw(:sql_types);
use Data::Dumper;
#use strict;
use warnings;
foreach (sort @{$DBI::EXPORT_TAGS{sql_types}}) {
	printf "%s=%d\n", $_, &{"DBI::$_"};
}

##</code><code>##

SQL_BIT=-7

##</code><code>##

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);