Select Code to Download

use warnings;
use strict;
...
eval { $in->execute(12345,'Hello','abcde'); 1 } or do { $e = $@ };
if ( defined $e ) { print "Third insert failed as expected: $e" }
else { die "Third insert didn't fail as expected" }