#!/usr/bin/perl

use strict;
use warnings;
use utf8;

my $Modul=PraxisModul->new();
$Modul->echo();

{package PraxisModul;
use base 'Seitenmodul';
use strict;
use warnings;

sub new {
  my $class=shift;
  my $self=$class->SUPER::new();
  return $self;
}

sub echo {
  my $self=shift;
  print "Echo ";
  $self->SUPER::echo();
}
1;}