#!/usr/bin/perl 

use strict;
use warnings;

use MLDBM qw/DB_File Storable/;
use Data::Dumper;
use Fcntl;

$Data::Dumper::Indent = 1;

my $file = shift;
my %DB;
tie %DB, 'MLDBM', $file, O_RDONLY or die $!;
print Dumper(\%DB);
untie %DB;