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();