print "birthDay: "; 
my $day = <STDIN>; 
print "birthMonth: "; 
my $month = <STDIN>; 
print "birthYear: "; 
my $year = <STDIN>; 
 
print "toDay: "; 
my $today = <STDIN>; 
print "Month: "; 
my $thismonth = <STDIN>; 
print "Year: "; 
my $thisyear = <STDIN>; 
 
my$daysCount=0; 
 
if ($year >$thisyear){ 
warn "Birth Year is after this year.???"; 
} 
#here is my problem, i want it to be full years e.g 365 days apart not just  
#1 date says 2012 and the next says 2013 
elsif ($year  == $thisyear){ 
 
	$daysCount= NumberOfDaysBetween($day $today ,$month,$thisyear ); 
	 
} 
 
sub DaysBetween 
{ 
my$daysBetween=0; 
my$startDay=shift; 
my$endDay=shift; 
my$startMon =shift; 
my$endMon =shift; 
 
if $startMon == $endMon && $startDay<= $endDay){ 
	$daysBetween = $endDay- $startDay; 
	} 
else { 
	$daysBetween =(($startDay-1)-(amountOfDaysInMonths($startMon ))) + $endDay + &seriesOfDaysInMonths$startMon, $endMon ); 
} 
} 
return $daysBetween; 
} 
#I dont have the data for the other sub routines available right now- but take it as they are ok. 
#my main concern is trying to undertsand the idea of having the full year in the above sub routine.