perl DBI urgent need help please help begging oracle dbi

[sumit arora]

hi i am trying to connect to an oracle database using dbi and i get this ::

Driver has not implemented the disconnect_all method. at /opt/perl/lib/site_perl/5.8.0/sun4-solaris/DBI.pm line 575
END failed--call queue aborted.


for all i know, the script was working earlier, but has suddenly stopped working.

i cannot take a trace or find the log since log4perl is not installed. i cannot install any cpan module.

need help:::this is what i am using for connectibng::

my $db = DBI->connect("dbi:Oracle:$oracle_sid", "$oracle_user", "$oracle_passwd")

$db->{RaiseError} = 1;
my $sth = $db->prepare("SELECT query here...");

$sth->execute()

while (my @row = $sth->fetchrow_array)
{
my $a = $row[0];
my $b = $row[1];

next unless $a;
next unless $b;

}
$db->disconnect;