sub logfile_name {
#das aufrufende objekt ist der erste parameter und wird in $self gespeichert
  my ( $self, @args ) = @_;

#gebe $self->{logfile_name} zuruecke, wenn $self->{logfile_name} existiert
  return $self->{logfile_name} if exists $self->{logfile_name};

# hier kommen wir nur an, wenn das voherige return nicht ausgefuehrt wurde
  return undef; #gebe undef zurück, hier koenntest du z.B. deinen defaultwert
#eintragen: return "server_log.log";
}