$dbh->disconnect() macht gar nichts!?

[Thomas]

use strict;
use warnings;
use DBI;
my $dbh = DBI->connect(..);
die DBI::errstr if !$dbh;
$dbh->disconnect || print $dbh->errstr;

immer noch das selbe. keine fehlermeldung, keine warnings, aber am schluss funktioniert ein select immer noch.

Ich hab übrigens:
Perl 5.8.0
DBI 1.41
Apache 2.0.53
MySQL 4.1