#!/usr/bin/env perl
use strict;
use DBI;
my $dbh = DBI->connect('a','b','c',{RaiseError => 1, PrintWarn => 1, PrintError => 1});
my $val = 'x' x 254 . 'y' x 50;
my $result;
$result=$dbh->do("insert into requestattribute values ('',150,'test123','$val')");
print "result: '$result'\n";
print "mysql_info: ". $dbh->{'mysql_info'} . "\n";
print "mysql_errno: ". $dbh->{'mysql_errno'} . "\n";
__DATA__
result: '1'
mysql_info: 
mysql_errno: 0