Problem with Perl Berkeley DB?