#!D:\xampp\perl\bin\perl.exe
use strict;
use warnings;
use HTML::Template;

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");
my $text = <TEXTDATEI>;
close(TEXTDATEI);
$template->param(TEXT => $text);

# 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();