Quotesub new { my $self = shift; my $Referenz = {}; $self->{ID} = shift; $self->{APP} = shift; $self->{X} = shift; $self->{Y} = shift; $self->{IMG} = shift; $self->{IMGHV} = shift; $self->{HV} = 0; $self->draw($self->{IMG}); bless($Referenz,$self); return($Referenz); }