#! /usr/bin/perl -w

use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI; # neues Objekt erstellen

print $cgi->header(-type => 'text/html');

open (TOP,"< ../html/page/top.htm") || die "Fehler: $!";
while (<TOP>) {
print $_; }
close TOP;

open (CONTENT,"< ../html/page/index.htm") || die "Fehler: $!";
while (<CONTENT>) {
print $_; }
close CONTENT;