package BMODUL; use base 'CGI::Application'; use base 'WebApp'; use strict; sub SeiteB {     my $self = shift;     $self->{TEMPLATE}->param(         CONTENT_SEITE => 'tmpl_content_b.htm',         INHALT => 'Scriptausgabe B',         ); } 1;