heres my test form

First name:

Last name:

Phone number:

Date (MM/DD/YY):

Time (HH:MM:SS):

#your.pl #!/usr/bin/perl use strict; use warnings; use CGI ':standard'; my $firstName = param( "firstName" ); my $lastName = param( "lastName" ); my $phone = param( "phone" ); my $date = param( "date" ); my $time = param( "time" ); print header(); print start_html( -title => "form page" ); if ( $date =~ m#^(1[012]|0?[1-9])/([012]?\d|3[01])/(\d\d)$# ) { print "

The date is $1 / $2 / $3.

"; } print end_html();