#!/usr/bin/perl use strict; use warnings; use CGI ':standard'; use HTML::Menu::DateTime; use HTML::Template; my $template = HTML::Template->new (filename => 'date.tmpl'); my $menu = HTML::Menu::DateTime->new (date => '2004-09-28'); $template->param (day => $menu->day_menu, month => $menu->month_menu, year => $menu->year_menu); print header(), print $template->output; ##

##