$fromDBH = DBI->connect("DBI:DB2:$fromDB", $username, $password, {AutoCommit => 0}) or closing('ReportAgg.pl', "Couldn't connect to $fromDB :\n\n" . DBI->errstr, FALSE, $fromSTH, $fromDBH, $toSTH, $toDBH);