my $vars = {
    'date'    => $date,
    'format'  => sub { return ucfirst lc $_[0]; },
};
$template->process('example.tt', $vars);