#!/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;
} else {
print 'Invalid date=', $date;
}
 print end_html;