Memory leak in DBD::mysql with server side prepares?

First, here are the perl/mysql versions involved:
MySQL: 4.1.14
Perl: 5.8.0
DBI: 1.50
DBD::mysql: 3.0004

Here is a simple perl script that uses server side prepares (db vars removed):

#!/usr/bin/perl -w

use strict;
use DBI;

my $ssp   = 1;
my $count = 0;

my $query = "SELECT * FROM content_class WHERE id = ? LIMIT 1";

my $dbh_l = DBI->connect (
            "dbi:mysql:database=$DBName:host=$DBHost:mysql_server_prepare=$ssp",
            $DBUser, $DBPass,
            { RaiseError => 1, PrintError => 0 },
);

my $s_q   = $dbh_l->prepare($query);
my $id    = 484262734;

while (1) {
  $s_q->execute($id);
  my @data = $s_q->fetchrow_array();
  $s_q->finish;

  $count++;

  print "ran $count queries\r";

  sleep(0.3);
}

This script, when run, will eat about 10M of memory a second.  Am I
missing something about server side prepares?

Cheers,
-Jason

-- 
MySQL Perl Mailing List
For list archives: http://lists.mysql.com/perl
To unsubscribe:    http://lists.mysql.com/[email protected]