#!/usr/bin/perl -w
use strict;
use HTML::Template;
use CGI::Carp qw(fatalsToBrowser);
use DB_File;

my @fields = ("title","date","author","news");
my $template = HTML::Template->new(filename => 'news.tmpl');
my $filename="database.db";

tie(my %hash, "DB_File", $filename) or die "Can't open $filename: $!";

my @loop_data = map { { KEY => $_, VALUE => $hash{$_} } } keys %hash;

untie %hash;
$template->param(SHOW_ALL_LOOP => \@loop_data);
print $template->output;