For dates (i.e. times with h,m,s=0), it's better to use timegm+gmtime over timelocal+localtime. I think your program will return an incorrect answer for some time periods due to DST.

Update:

Solution which still uses core module Time::Local:

use strict;
use warnings;

use Time::Local qw( timegm_nocheck );

# birth_date_age(2006, 4, 28) for people born on April 28th, 2006.
sub birth_date_age {
   my ($bday_y, $bday_m, $bday_d) = @_;
   
   # ----------------------------------------
   # -- Get current date.

   my ($now_y, $now_m, $now_d) = (localtime)[5,4,3];
   $now_y += 1900;
   $now_m++;
   my $date_now = timegm_nocheck(0,0,0, $now_d, $now_m-1, $now_y);

   # ----------------------------------------
   # -- Get next birthday.

   my $date_next = timegm_nocheck(0,0,0, $bday_d, $bday_m-1, $now_y);

   $date_next = timegm_nocheck(0,0,0, $bday_d, $bday_m-1, $now_y+1)
      if $date_next <= $date_now;

   my ($next_y) = (gmtime($date_next))[5];
   $next_y += 1900;

   # ----------------------------------------
   # -- Get prev birthday.

   my $prev_y = $next_y - 1;
   my $date_prev = timegm_nocheck(0,0,0, $bday_d, $bday_m-1, $prev_y);

   # ----------------------------------------
   # -- Calculate age and others

   my $age = $next_y - $bday_y - 1;

   my $days_to   = ($date_next - $date_now) / (24*60*60);
   my $days_from = ($date_now - $date_prev) / (24*60*60);

   return ($age, $days_from, $days_to);
}
[download]

Notes:

• On years without a Feb 29th, March 1st will be considered the birthday anniversary of people born on Feb 29th.

• I leave the date parsing to the caller. It makes for a more flexible solution.

• For arguments, days, months and years are one-based.

• Internally, days, months and years are one-based.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.