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;
}

Can't locate Person.pm in @INC