dbi help

[Zhou, Bixia]

We are currently using: perl, v5.8.0 built for MSWin32-x86-multi-thread
The test code as following:
my $process = 1;
while ($process){
  my $dbh = DBI->connect('dbi:Oracle:sid', $user, $pass, { AutoCommit => 0
});
  if ($dbh =~ /ERR/) 
    {
      exit;        
     }
 $dbh->disconnect;
 undef $dbh;
 sleep(10);
}
The memory usage starts at 9mb and keeps up. Anybody notices this before?
and has a solution?
Thanks