sub sternzeichen {
    my ($day, $month) = @ZZZ;
    my $md = $month*100+$day;   # Ein Wert aus Monat und Tag

    return (
        # Zahlen immer *ohne* führende Null!
        $md <   101 ? undef :           # < 01.01. => Fehler
        $md <=  120 ? 'Steinbock' :     # bis 20.01.
        $md <=  219 ? 'Wassermann' :    # bis 19.02.
        $md <=  320 ? 'Fisch' :         # bis 20.03.
        $md <=  420 ? 'Widder' :        # bis 20.04.
        $md <=  520 ? 'Stier' :         # bis 20.05.
        $md <=  621 ? 'Zwillinge' :     # bis 21.06.
        $md <=  722 ? 'Krebs' :         # bis 22.07.
        $md <=  823 ? 'L&ouml;we' :     # bis 23.08.
        $md <=  923 ? 'Jungfrau' :      # bis 23.09.
        $md <= 1023 ? 'Waage' :         # bis 23.10.
        $md <= 1122 ? 'Skorpion' :      # bis 22.11.
        $md <= 1221 ? 'Sch&uuml;tze' :  # bis 21.12.
        $md <= 1231 ? 'Steinbock' :     # bis 31.12.
        undef                           # > 31.12. => Fehler
    );
}