package Seitenmodul;
use strict;
use PGtest;
use DBI;
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser'; 

sub new {
    my $class=shift;
    my $self={};
    bless($self, $class);

    $self->init();

    return $self
}

sub init {
	my $self=shift;
    # Finde heraus um welchen Modulaufruf es sich handelt
	my @N=split(/\//,shift);
    $MODUL       =$N[@N-2];
...
}