#!@perl5@

$eternity = "@dir@";
chdir( $eternity );
if ( @ARGV ) { $article_db = shift; } else { $article_db = "article"; }
dbmopen( %article_db, $article_db, 0666 );
foreach $article ( keys %article_db )
{
    print "$article $article_db{$article}\n";
}
dbmclose( %article_db );
