eval {
    $dbh->do($sql);
};
if (my $ev = $@) {
    print Dumper($sq);
    die $ev;
}