Select Code to Download

        
 
A popular horoscope kind of thing is to get a person’s luck number fro
+m his/her date of birth. This is accomplished by adding together all 
+the digits in the day, month, and year of the birthdate, then repeat 
+the process until there is a single digit, which will be in the range
+ of 1 to 9, inclusive. For example, if the date is 21-Nov-1995, the p
+rocess is as follows:
...
1
 
Do it again, yes (or no)? No

#!/usr/bin/perl -w
#This script pulls birthdays and determines their lucky number.
use strict;
...
    return $sum;    
}