#!/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 'OK from REG EXP date=', $date;
     ($mon, $day, $year) = split( /\//, $date );
     if ( $mon >= 1 && $mon <= 12 ) {
          if ( $day <= 31 ) {
               print " Valid date mon=$mon day=$day year=$year";
            } else {
                print " Illegal day specifed day=$day";
            }
       } else {
           print " Illegal month specifed mon=$mon";
       }

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