#!/usr/bin/perl

use warnings;
use strict;

use DBI;

system( "true" );
print "\$?: $?\n";

my $dbh = DBI->connect ("dbi:Oracle:", 'username', 'password', {AutoCommit => 0 }) or
die "Unable to connect to the database:  $DBI::errstr";

system( "true" );
print "\$?: $?\n";

exit 0;

##</code><code>##

$?: 0
$?: -1