use DBI;
my ($dbh, $data) = (undef, '');
$data .= chr(int rand 256) for 1..400;
eval{
 $dbh = DBI->connect('DBI:ODBC:testdb', '', '')
   or die $DBI::errstr;
 my $sth = $dbh->prepare('insert into btest(id, data) values (?,?);') or die $dbh->errstr();
 $sth->execute(1, $data) or die $dbh->errstr();
 $dbh->disconnect();
};
print "Error : $@" if length $@;