package Seitenmodul;
sub new{
	return bless{},shift;
}
sub init{print 123}
###########################################################################
package PraxisModul;
@ISA = qw( Seitenmodul );
sub new {
	my $class = shift;
	my $self = $class->SUPER::new;;
	$self->init;
	return $self;
}
###########################################################################
package main;

$Modul = PraxisModul->new();