Help for this page
$db2->Sql($sql2)|| die("Query error");
my $rc = $db2->Sql($sql2); die sprintf("Query error!! RC: %s ; Error: %s ; SQL: %s", $rc, $db2- +>Error(), $sql2) if $rc;