gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use DBI;

my $dbh = DBI->connect(
  "DBI:mysql:database=test",
  'xxx', 'xxx',
  { RaiseWarn => 1, PrintWarn => 1 },
)
  or die;


$dbh->do('set @@SQL_MODE = ""');

$dbh->do('INSERT INTO example (tooshort) values ("12345")');

my $sth = $dbh->prepare('SHOW WARNINGS');
$sth->execute;
while (my $data = $sth->fetch) {
  say join ' | ', @$data;
}