here's 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 ( $time =~ m#^(1[012]|[1-9]):([0-5]\d):([0-5]\d)$# ) { print "

The time is $1 : $2 : $3.

"; } print end_html();