use strict;
use warnings;

package SuperKlasse;

sub new 
  {
  print "Ich bin SuperKlasse-new().\n";
  my $class = shift;
  my $self = {};
  return bless($self, $class);
  }

sub printMe 
  {
  my $self = shift;
  print "Ich bin ein SuperKlasse-Objekt.\n";
  }

package SubKlasse;
our @ISA = qw( SuperKlasse );

sub printMe 
  {
  my $self = shift;
#  $self->SUPER::printMe();
  print "Ich bin ein ", ref $self, "-Objekt.\n";
  }

package main;
my $obj = SubKlasse->new();
$obj->printMe();