#!/usr/bin/perl

use GDBM_File;

die "no file: $@" unless $ARGV[0];

dbmopen( %db, $ARGV[0], undef) or die "could not open database file
$ARGV[0]: $! $@";

foreach $key (sort keys(%db))
{
 print "$key => ".$db{$key}."=> ".length($db{$key})."\n";
}

dbmclose %db;