rendered paste body#
# PERL ZODIAC NUMBERING THINGIE
# Shared for your convenience
#
$zodiac = 10 if ($month >= 1 && $day > 0); # Capricorn
$zodiac = 11 if ($month >= 1 && $day >= 20); # Aquarius
$zodiac = 12 if ($month >= 2 && $day >= 18); # Pisces
$zodiac = 1 if ($month >= 3 && $day >= 20); # Aries
$zodiac = 2 if ($month >= 4 && $day >= 19); # Taurus
$zodiac = 3 if ($month >= 5 && $day >= 20); # Gemini
$zodiac = 4 if ($month >= 6 && $day >= 21); # Cancer
$zodiac = 5 if ($month >= 7 && $day >= 22); # Leo
$zodiac = 6 if ($month >= 8 && $day >= 23); # Virgo
$zodiac = 7 if ($month >= 9 && $day >= 22); # Libra
$zodiac = 8 if ($month >= 10 && $day >= 23); # Scorpius
$zodiac = 9 if ($month >= 11 && $day >= 22); # Sagittarius
$zodiac = 10 if ($month >= 12 && $day >= 21);# Capricorn