#!perl
# welcome.pl
use CGI;
use strict;
my $cgi = CGI->new();
my $x = $cgi->param('firstname');
my $q = $cgi->param('lastname');

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