use Date::Calc qw( check_date ); 
 
if ( check_date( $year1, $month1, $day1 )  
{  
	print "Location: $msg_ok\n\n"; 
	exit; 
} 
 else  
{ 
	print "Location: $msg_badmail\n\n"; 
	exit; 
} 
 
if ( check_date( $year2, $month2, $day2 )  
{  
	print "Location: $msg_ok\n\n"; 
	exit; 
} 
 else  
{ 
	print "Location: $msg_badmail\n\n"; 
	exit; 
}