#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);  # Zeigt die Fehler an
use HTML::Template;

print "Content-type: text/html\r\n\r\n";
warningsToBrowser(1);


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


# Die Textdatei wird geoeffnet und an die Variable $text bzw. danach an TEXT uebergeben
open(TEXTDATEI, ">>", "/home.txt") or die "Can't open home.txt: $!"; 
my $text = join '', <TEXTDATEI>;            # Der join Befehl liest alle Zeilen der Datei ein
close(TEXTDATEI);
$template->param(TEXT => $text);             # evtl. use Encode::Entities; und encode_entities $text, denn $text kann HTML enthalten.


print $template->output();