#!/usr/bin/perl
use warnings;
use strict;

use BerkeleyDB;
use Data::Dump qw(dump);

my %h;
tie %h, "BerkeleyDB::Hash", -Filename => $_[0];

print dump( \%h );
