Sorry, forgot to log on before posting my question.

Perl is v5.8.0.
DBD::Oracle::VERSION = '1.14'

I'm mainly looking for something that will just scan the calls and print out a report, just so I have a list of candidates to narrow down my search as to what's broken, like:
'open' behavior has changed, IO internals have been modified
etc.

pseudocode:

open(INF,"<$filename") || die "Couldn't open in file\n";

my $id = 0;
my $data = "";
...
my $statement = $dbh->prepare("insert into data_table values(:1,:2)");

while(<INF>) {
  if (s/^ID:[\s]+//g) {
    $id = lc($_);
  }
  elsif (s/^Data:[\s]+//g) {
    $data = lc($_);
  }
  #repeat for several labels

  $statement->execute($id,$data);

  $id = 0;
  $data = "";
}
[download]

There's several pieces of data that get pulled out and and compared to the data that exists in the table for a given ID, but this should give an idea of what it's doing.

As far as Devel::Leak, no haven't used it before. Will investigate.

I'll try and break down the code to demonstrate the leak, but I have to figure out for certain what's causing it first.