#!c:/perl/bin/perl -w
$|++;
use strict;
use CGI::Simple;
use HTML::Template;
my $cur_month = 'November';
my $count = 0;
my $months = [
map { [ $count++, $_ ] } qw(
January February March April May Jun July
August September October November December
)
];
my $q = CGI::Simple->new;
my $t = HTML::Template->new(filehandle => *DATA);
$t->param(
url => $q->self_url,
months => [
map { {
month_num => $_->[0],
month_name => $_->[1],
selected => ($cur_month eq $_->[1] ? 'SELECTED' : '')
} } @$months
]
);
print $q->header, $t->output;
exit;
__DATA__
test