Perl implementation about age calculation from birthdate?

Hi all,


I'm trying to implement a Perl language structure.


My small program will do the followings;


Take the birth date of the user as input.


(Month's will be input as strings.)


Take the current time from the operating system.


Then calculate and display the age of the user as;


x years, x moonths and x days.


I also want to add a day/month counter,


so that the program will calculate and display the age of the user as;


x days, x months





So, I plan the program to work as follows;


Enter your birth date: 21 November 1975


Enter the current date: 9 January 2007 //if i can't implement a get_system_time function


Your age is: 31 year(s) 1 month(s) 19 day(s)


You've been living for 11364 days or 378 months.





I'd be glad to hear some help about this small implementation.


Thanks all..

Perl implementation about age calculation from birthdate?
this sounds like a homework assignment, You'll get more help if you post your work so far!
Reply:erm... dont you use that GregorianCalendar crap?

flowers for algernon