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

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

my $path = shift @ARGV;
die $! unless -r $path;

my %h;
tie %h, "BerkeleyDB::Hash", -Filename => $path;

print dump( \%h );
