gistfile1.txt

use DBI;
use Carp;

my $dbh = DBI->connect('dbi:MySQL:test','','', {
    RaiseError => 1,
    Callbacks  => {
        ChildCallbacks => {
            execute___ => sub {
                my ($obj, @binds) = @_;
                warn @binds;
                map { ! defined $_ && Carp::croak('found undefined value') } @binds;
                return;
            },
        },
    },
});

$dbh->do(<<EOF);
CREATE TABLE IF NOT EXISTS hoge (
    foo VARCHAR(255) NOT NULL
)
EOF

my $foo;
$dbh->do("SELECT FROM hoge WHERE foo=?",undef, $foo);