Another way, without modules, Tie, regex, or eval:

my $date;
my $v= sub{return qq(date $date)};

$date = localtime;
print &$v;

--output--
date Tue Mar  9 10:52:34 2004
[download]