use strict;
	use warnings;


	my $date_ok = "nicht ok";
		
	my $day_birth = "28";
	my $month_birth = "12";
	my $year_birth = "2009";

	my $day_p_date = "28";
	my $month_p_date = "11";
	my $year_p_date = "2013";


	if (($year_p_date-$year_birth) < 5) {
		
		 if (($year_p_date-$year_birth) < 4) { $date_ok = 1; }
		 else { 
		 	if (($month_p_date - $month_birth) < 0) {  $date_ok = 2; }
		 	else { 
		 		if (($month_p_date - $month_birth) > 0) { $date_ok = "nicht ok .."; }			
		 		else { 
		 			if (($day_p_date-$day_birth) < 0)  {  $date_ok = 3; }
		 		}	
		 	}
		}
	}
	print $date_ok;