form page
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();