use strict;
use warnings;
use Template;
use POSIX;

my $tt = Template->new;
$tt->process(\*DATA, {
   var_day => strftime("%D %r",localtime)}
) or die $tt->error;

__DATA__
[% USE day = date(format => '%D %r') -%]

>>[% var_day %]<<

>>[% day.format(time) %]<<