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

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

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

my %h;
tie %h, "TokyoCabinet::HDB", $path || die $!;

print dump( \%h );
