# hello.pl
use CGI;
use strict;
my $cgi = CGI->new();
my $fname = $cgi->param('firstname');
my $lname = $cgi->param('lastname');

print "Content-Type: text/html\n\n";
print $cgi->start_html;
print <<HTML;
<h3>Hello</h3>
<table cellpadding="5">
<tr>
 <td>Firstname</td>
 <td><b>$fname</b></td>
</tr>
<tr>
 <td>Lastname</td>
 <td><b>$lname</b></td>
</tr>
</table>

<form method="post" action="welcome.pl">
<input type="hidden" name="firstname" value="$fname"/>
<input type="hidden" name="lastname" value="$lname"/>
<input type="submit"/>
</form>

</body>
</html>
HTML