#!/Perl/bin/perl

use warnings;
use strict;

use CGI;
use HTML::Template;

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

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