my ($self, @cursors) = @_;

    my $cursor;
    foreach $cursor (@cursors) {
        if (exists($self->{CURSORS}{$cursor}))
    {
            #
            eval {
                my $ref = $self->{CURSORS}{$cursor};
        delete($self->{CURSORS}{$cursor});
                $ref->finish;
            }                  
 }
    }
}

      if ($self->{CONNECTION} && !$self->{CONNECTION}->{InactiveDestro
+y})
      {
      $self->{CONNECTION}->disconnect;
[download]

I am checking if there is any open cursor. Hope it helps. DBI Version is 1.06 and perl version is 5.0.3