#!/usr/bin/perl 

use lib('.');
use warnings;
use easydb ;
use Data::Dumper;
use strict ;
my $dbfile = "some.db" ;

db_open($dbfile) ;

my %legend = (
        "asap.cgi" => "Journal ASAPS",
        "abstract" => "Journal Abstract",
        "query"    => "Journal Query",
        "cen"      => "CEN Report",
        "preprint"  => "Preprint Report",
        "reagent2000" => "Reagent Report",
        "article.cgi" => "Current Journal Articles",
        "archive.cgi" => "Article Archive"
) ;

db_store ("legend",\%legend);

my $legend =  db_fetch("legend");

foreach my $key (sort keys %$legend )
{
    print "$$legend{$key}\n"; 
}

db_close() ;


exit  ;