8 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#! /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;
8 Einträge, 1 Seite |