Вы бы назвали части кода отключения линейным шумом или оставите его как есть?
use DBI; my $dbh = DBI->connect ... ... ... END { $dbh->disconnect or die $DBI::errstr if $dbh; }