Select Code to Download

   $dbh->do("CREATE TEMPORARY TABLE foo (bar SMALLINT)")
   $dbh->do("INSERT INTO foo (bar) VALUES (100000000)");

   use Data::Dumper;
   print Dumper($dbh->selectall_arrayref("SHOW WARNINGS"));

$VAR1 = [
          [
...
            'Out of range value adjusted for column \'bar\' at row 1'
          ]
        ];