package main;
use strict;
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';
use Date::Calc qw(:all);
use Storable qw(nfreeze thaw);
use DBI;
use DBD::Pg qw(:pg_types);
use utf8;
use Encode qw(encode decode from_to);
use Encode::Encoder qw(encoder);

use lib "/wwws/cgi-bin/praktver"; # Location B
use PGtest;

...

$Modul=PraxisModul->new();

...

package PraxisModul;
use CGI;

use Seitenmodul;
our @ISA = qw( Seitenmodul );

...

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

	$self->SUPER::init(); # <-- Fehlerzeile 163
	$self->init();

	return $self;
}