[%- PERL -%] $stash->set('g', sub { my ($f,@a)=@_;sprintf($f,@a) }); [%- END -%]