#!/usr/bin/perl

use warnings;
use strict;

package Person { 
 
    sub new { 
        my $classname = shift;
        my $args = {@_}; 
        my $self = {  name => $args->{vname} || "",
                      name => $args->{name} || "",
                      ort  => $args->{ort} || "",
                      plz  => $args->{plz} || "00000",
                      age  => $args->{age} || 0 }; 
        return bless($self, $classname); 
    }           

    sub setLocation {
        my $self = shift;
        my %args = @_;
        $self->{plz} = $args{plz};
        $self->{location} = $args{location};
    }

    sub setAge {
        my $self = shift;
        my $age = shift;
        $self->{age} = $age;
    }

    sub getAge {
        my $self = shift;
        return $self->{age};
    }
}

my $person = Person->new( name => 'foo', vname => 'bar');
# Nun kann die Person an einen anderen Ort umziehen und nimmt dazu einen sog. setter:
$person->setLocation( ort => 'Woanders', plz => '12345' );
# Und wer wissen will wie alt er ist, nimmmt einen getter:
$person->setAge(25);
my $age = $person->getAge();
print "$age\n";