package Person;

use strict;
sub new {
	my $class = shift;
	my $self = bless {} , ref $class || $class;
	my ($id, $nachname, $vorname) = @_;

	$self->{'id'} = $id;
	$self->{'nachname'} = $nachname;
	$self->{'vorname'} = $vorname;
	
	#bless $self, ref $class || $class; # wegen Vererbung
	return $self;
}