package Test;
our %config = (
    Nummer => 0,
    grafikVerzeichnis => File::Spec->catfile(qw(foo bar)),
    # usw.
);

sub setNummer {
    my $self = shift;
    my $setTo = shift;
    $config{Nummer} = $setTo;
}

sub getNummer {
    my $self = shift;
    return $config{Nummer};
}

1;