#!/usr/local/bin/perl

use SDBM_File;
use Fcntl;

$FILE = shift;
if ($FILE eq "") { print "Syntax: dump [sdbm_database]\n\n"; exit; }

tie %DATABASE, SDBM_File, $FILE, O_RD , 0644;
foreach(keys(%DATABASE)) { 
  print "RECORD: [$_]: '$DATABASE{$_}'\n";
}
untie %DATABASE;

