package AMODUL; use base 'CGI::Application'; use base 'WebApp'; use strict; sub SeiteA {     my $self = shift;     $self->{TEMPLATE}->param(         CONTENT_SEITE => 'tmpl_content_a.htm',         INHALT => 'Scriptausgabe A',         ); } 1;