package AbgeleiteteKlasse;

use strict;
use warnings;
use base qw(BasisKlasse);

sub new{
  my ($class,%args) = @_;
  my $self = $class->SUPER::new(%args);
  $self->{Position} = $args{position} || "Angestellter";
  return $self;
}

sub position{
   #... mach was
}

1;