The report function returns nothing. When I read the flat-file, it has aerio_sx_02_c.epsabrewster_pam.epsbbrewster_pam.eps in there. I should see keyvaluekeyvalue not just keykeykey.

I myself wrote a test function:

# testing Functions
sub NDBM_test {
    my $date = MakeDate();
    #write
    my %test;
    tie %test, "NDBM_File", 'test', O_RDWR|O_CREAT|O_EXCL, 0644;
    foreach $number (1...10) {
        $test{$number} = $date;
    }
    untie %test;
    #read
    tie %test, "NDBM_File", 'test', O_RDWR|O_EXCL, 0644;
    foreach $number (1...10) {
        print "$number: $test{$number}\n";
    }
    untie %test;
}
[download]

And it produces:

1: 20030828
2: 20030828
3: 20030828
4: 20030828
5: 20030828
6: 20030828
7: 20030828
8: 20030828
9: 20030828
10: 20030828
[download]

Here's what the flat file looks like...

2003082810200308289200308288200308287200308286200308285200308284200308
+283200308282200308281
[download]