my $database = 'mumbleCoDB';
my $dbUser = 'db2inst1';
my $password = '[REDACTED]';

use DBI();

my $dbh = DBI->connect(
        "DBI:DB2:$database",
        $dbUser,
        $password,
        {
            AutoCommit => 0,
            RaiseError => 0,
            PrintError => 1,
        }
    );

my $sth = $dbh->prepare("
    SELECT no_such_column
    FROM schema.table");
if (!$sth) {
    warn "SQL Error!\n";
} else {
    warn "All is well.\n";
}

use Data::Dumper('Dumper');
print Dumper($sth);

$dbh->rollback();
$dbh->disconnect();