#!/usr/bin/perl -w


use strict;
use BerkeleyDB;

my $database = "my.db";
my (%db_hash, $key, $value);

tie %db_hash, 'BerkleyDB::Hash', -Filename => $database, -Flags => DB_RDONLY or die "Cannot open $database: $!\n";

 while (($key, $value ) = each %db_hash){
  print "$key, $value\n";
 }

untie %db_hash;