#!/usr/bin/perl $| = 1; use strict; use warnings; use utf8; use strict; use DBI; use CGI; use Encode; use HTML::Template; #Templates einbinden my $template = HTML::Template->new(filehandle => *DATA, encoding => ':encoding(UTF-8)'); #Werte einlesen my $daten = CGI::new(); my $view = $daten->param("view") || ''; my $menue = $daten->param("menue") || ''; my $submit = $daten->param("submit") || ''; if ( $view eq "darsteller") { if ($menue eq "" and $submit eq "") { $template->param(DARSTELLER_MENUE => "1"); } } if ( $view eq "termin") { &termin; } print "Content-Type: text/html \n\n", $template->output; exit; sub termin { $template->param(DARSTELLER_TERMIN => "1"); } __DATA__ MenĂ¼: Termin: