#!/usr/bin/perl -w

use strict;
use HTML::Template;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;
print $cgi->header;
my $template = new HTML::Template(filename => "1.tmpl", die_on_bad_params => 0);
$template->param(
                 BOX =>
                 $cgi->popup_menu(-name=>'color',
                          -values=>['red','green','blue','chartreuse']),
                 BOX2 =>
                 $cgi->textfield('name'),
                 );

print $template->output();