<html>
<head>
<title>form page</title>
</head>

<body>
<p>heresmy test form</p>
<form method = "post" action = "/your.pl">

<p>First name: 
<input name = "firstName" type = "text" size = "20"></p>

<p>Last name: 
<input name = "lastName" type = "text" size = "20"></p>

<p>Phone number: 
<input name = "phone" type = "text" size = "20"></p>

<p>Date (MM/DD/YY): 
<input name = "date" type = "text" size = "20"></p>

<p>Time (HH:MM:SS): 
<input name = "time" type = "text" size = "20"></p>

<input type = "submit" value = "submit">
<input type = "reset" value = "reset">

</form>
</body>

</html>

#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 ( $firstName =~ /^\w+$/ ) {
   print "<p>Hello there \L\u$firstName.</p>";
}

if ( $lastName =~ /^\w+$/ ) {
   print "<p>Hello there Mr./Ms. \L\u$lastName.</p>";
}



print end_html();