#!/usr/bin/perl

use strict;
use warnings;
use Time::Piece;
use HTML::Template;

my $time     = localtime;
my $curr_mon = $time->_mon;
my @month    = $time->mon_list;

my $tmpl = HTML::Template->new(filehandle => \*DATA);
$tmpl->param(month => [
	map {
		value => $_,
		label => $month[$_],
		curr  => $curr_mon == $_,
	}, 0..$#month
]);

print $tmpl->output;

__DATA__
<tmpl_loop month>
<select name="month">
	<option value="<tmpl_var value>" <tmpl_if curr>selected="1"</tmpl_if>>
		<tmpl_var label>
	</option>
</select>
</tmpl_loop>