DBI-connect.pl

my $dbh = DBI->connect( $dsn,
    $Opt{'user'}     // '',
    $Opt{'password'} // '',
    {   AutoCommit  => 1,
        PrintError  => 0,
        RaiseError  => 0,
        HandleError => sub { warn shift },
        Callbacks   => {
            ChildCallbacks => {
                execute => sub {
                    my ( $sth, @params ) = @_;

                    if ( $Opt{'verbose'} ) {
                        my $sql = $sth->{'Statement'};
                        $sql =~ s{[?]}{ $sth->{'Database'}->quote( shift @params // '' ) }ge;
                        say {*STDERR} $sql;
                    }

                    if ( $Opt{'dry-run'} ) {
                        undef $_;
                    }

                    return;
                },
            },
        },
    },
) or die DBI->errstr;