#!/usr/bin/perl

use AnyDBM_File;

if ($#ARGV != 0) {
    die "show_db <dbfile>\n";
}

dbmopen(%db, $ARGV[0], 0666) or die "Can't open $!\n";
foreach (keys %db) {
    print "$_ = $db{$_}\n";
}