sub init{ my $self = shift; # declare opts $self->{OPTS} = { date => {type => 's', descr => "Datum, Format T.M.J oder T.M.-J (v. Chr.)"}, version => { descr => "Zeigt die Version dieser Anwendung, wenn als Flag gesetzt"}, verbose => { descr => "Gibt weitere Informationen aus, wenn als Flag gesetzt" }, }; }