#!/usr/bin/perl
use CGI ':standard';
print header, start_html('Date Check');
$date=param('udate'); 
if ( $date =~ m{^\d\d/[0-3]\d/2\d\d\d$} ) { 
	print 'Valid date=', $date;
	($mon, $day, $year) = split( /,/, $date );
	if ( $mon >= 1 && $mon <= 12 ) { 
		if ( $day > 31 ) { 
			print "valid date found=$date";	
		} else {
	   		print "Illegal day specifed = $date"
		} 
	} else { 
		print "Illegal month specifed = $date"
	}

} else {  
	print 'Invalid date=', $date;
}
print end_html;