##

#!/usr/bin/perl
use strict;
use CGI qw /:cgi/;
use HTML::Template;

my $query = new CGI;

$template = HTML::Template->new( filename => 'form2.tmpl' );
$template -> param( firstname => $query->param('firstname'),
                    lastname  => $query->param('lastname') 
                  );

print $template->output;

##

##