#!D:\xampp\perl\bin\perl.exe
use strict;
use warnings;
use HTML::Template;
use CGI::Carp qw(fatalsToBrowser);# Zeigt Dir Fehler an
$SIG{_ _ W A R N _ _}  = sub {die 'WARN: '.shift}; # Sorgt dafür, daß Warnungen auch als Fehler im Browser angezeigt werden. Ich hab's nur gesperrt geschrieben, damit es hier nicht unterdrückt wird.

print "Content-type: text/html\n\n";

# Hier wird das Template geoeffnet
my $template = HTML::Template->new(filename => 'irland.tmpl');

# Hier soll jeweils eine Datei mit dem Text geöffnet werden 
open(TEXTDATEI, "text.txt") or die "Can't open text.txt: $!";
my $text = <TEXTDATEI>;
close(TEXTDATEI);
$template->param(TEXT => $text); # use Encode::Entities; und encode_entities $text, denn $text kann HTML enthalten.

# Gleichbleibende Bildpfade fuer Header und Navigation
my $header = '/images/header.jpg';
my $navi = '/images/navi.gif';
$template->param(HEADER => $header);
$template->param(NAVI => $navi);

# Eine Datei mit den Linkpfaden
my $link1 = '/irland.cgi';
$template->param(LINK1 => $link1);

# Eine Datei mit den Bildpfaden
my $bild = '/images/menschen.gif';
my $titel = '/images/titel_menschen.gif';
$template->param(BILD => $bild);
$template->param(TITEL => $titel);


print $template->output();