#!/Perl/bin/perl

use warnings;
use strict;

use CGI;
use HTML::Template;

my $q = new CGI;
my $template = HTML::Template->new(filename => 'mode2a.html');

$template->param(test_post => $q->param('test_post'));

print "Content-Type: text/html\n\n", $template->output;