gistfile1.txt

use warnings;
use Text::Xslate;

my $tx = Text::Xslate->new(
    syntax => 'TTerse',
    function => {
        'sprintf' => sub {
            my $format = shift;
            sprintf($format,@_);
        },
    }
);

my $ret = $tx->render_string(<<'EOF');
[% sprintf("%010d",100) %]
EOF


print $ret;