sub new {
my $objekt = shift;
my $referenz = {};
bless($referenz,$objekt);
return($referenz);
}