use CGI qw(:standard);

dbmopen(my %NEWS, "news", 0644) #opening the db
	or die("Error opening news database: $!");


open(TEMPLATE,"newstemp.html"); #opening the template

while(<TEMPLATE>) { #reading it in
	$temp .= $_;
}

close TEMPLATE;

##</code><code>##

$temp =~ s/\[\%1\%\]/$news1/;
$temp =~ s/\[\%2\%\]/$news2/;
print header();
print "$temp";